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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
001D70 3 O38F3 START X*1D70! QO0000D 121 LDIAG EQU 13 LOOP ALL DIAG PACKAGE 
4 ICR RO OG IC ICICI OR 2G III I OI aa a a aC ak aC ak ak ok OOO00R 122 CNRUN EOU 14 UNIT ADR ASSIGNMENT RUN 
5 * * 000003 124 NINTL EQU 3 HIGHEST INT LEVEL ON SYSTEM 
6 * ek PREREQUISITES KK * 000030 125 MDIRT EQU 48 MDI IMMEDIATE RETURN IN CNTL BLK 
7] * * OOOQ00E 126 OPWRD EQU 14 DISP TO PGM OPTION WORD 
8 * NONE * Q0000D 128 EOT EQU X*'OD! END OF MESSAGE CHAR (RETURN) 
Qg9 * * 000011 129 TTBEL EQU X'11! ATTEN CHAR (X-ON 
10 CR OI I I IO FI I OI IC ROR IC a ak i te ok kk ok ac ok a OOO07F 130 DLETE EQU X'7F! DELETE CHAR (RUBOUT) 
11 * * OOOOYE 131 PLUS EQU Ct+! PLUS CHAR 
12 * KK MODIFICATIONS eK * 000050 132 MINUS EOU cfs MINUS CHAR 
13 * * 000040 133 EBBK EQU cr ot BLANK CHAR 
14 * NONE * 001800 135 NEGZR EQU x'18008 NEGATIVE AND ZERO INDICATORS 
15 * * 000064 136 STPCD EQU xX'6q' STOP CODE FOR MEMORY 
16 Se LS 2S eS SSeS SS SL SSL SL SS LS SS SS SS SSP SSL SLL ES SS SS SST SS 2S 2 2 2S St SSS StS SS SS SS 000010 137 SMBIT EQU x'00108 SUMMARY MASK BIT 
17 * * 000000 139 ZERO EQU 0 VALUE OF 0 
18 * * Kx REAt'S INCORPORATED KK * 000001 140 ONE EQU 1 1 
19 * * 000002 141 TWO EQU 2 2 
20 * NONE * 000003 142 THREE EQU 3 3 
21 * * 000004 143 FOUR EQU 4 4 
PYM CT TS SSS SS SSCCSCSCSCSLCOCSC SSCS LS SL CTS SSS CST TT SS PTT STS ST SS eT SS St tt SSS 000005 144 FIVE EQU 5 5 
23 * * 000006 145 SIX EQU 6 6 
24 * KX SPECIAL INSTRUCTIONS KK * 000007 146 SEVEN EQU 7 7 
25 * * 000008 147 EIGHT EQU 8 8 
26 * NOWE * 000009 148 NINE EQU 9 9 
27 * * OOOO0A 149 TEN EQU 10 10 
28 OCC ido lok Fi loi gig ito icici ggg gk a dg kaiciak dcdcdc ak ik ak 00000B 150 ELEVN EOU 11 11 
29 * * 00000C 151 TWELV EQU 12 12 
30 * HK E. C. HISTORY KK * 00000D 152 THRIN EQU 13 13 
31 * * OO000E 153 FORTN EQU 14 14 
32 * DATE 12APR78 DATE O8AUG78 DATE DATE * OOO0OOF 154 FIVTN EQU 15 15 
33 * E.C. 755404D ELC. 755404 B.C. Be Ge * 000010 155 SIXTN EQU 16 16 
34 * * 000011 156 SEVIN EQU 17 17 
35 IOI OR I I i laigkok ak igo gk koi ak rake kok i ak ake ok ake i ake oie 2k ok 000014 157 TWNTY EQU 20 20 
37 GI IG oo diigo aig RG CK dakota dk ik 000015 158 TWEN1 EOU 1 1 
001D70 6F0OD 1D88 38 BEGIN MVW R7,OLYRA SAVE RETURN ADDRESS 000017 159 TWEN3 EQOU 23 23 
001D74 6802 1IEF2 39 B BEGIN1 NORMAL BEGIN 000019 160 TWEN5S EQU 25 25 
WWETTT CTCL LCCC SSCS TCSCCOCCOS SCO CCL CCCP SSC SSCS SPSS ELS SS TS SS ee et eT ee ts 2 SS SS OOOO1A 161 TWEN6 EOU 26 26 
001D78 6802 263E 41 BEGIN2 B ENTROPTS RETURN FROM DCP WITH DEVICE DATA 00001C 162 TWENS8 EQU 28 28 
U2 CR RR RII IC IIR III FRI II IO i dC a ok OO001E 163 THRTY EQU 30 30 
WW TE CCT COCTCCSCS TSS CCCC CCST CSCC CCS CC SOCC SSCL CC SS SSS SCS SS SSCL STS SSS Te LSS SS 000039 164 FIFT7 EOU 57 57 
45 * DEVICE ADDRESS TABLE 00003C 165 SIXTY EQU 60 60 
001D7C 0001 46 DATAB DC A (1) NUMBER OF DEVICE ENTRIES REQUESTED 000040 166 STXT4 EQU 64 64 
QOO1D7E 47 DEVAD EQU * 000042 167 SIXT6é EQU 66 €6 
OO1IDTE O00 48 DEVAD1 Dc X*oO0! DEVICE ADDRESS OOO004B 168 SEVN5S EQU 75 75 
OO1D7F F8 49 DEVAD2 DC X*F8! DEVICE TYPE 0000C0 169 ONES2 EQU 192 192 
001D80 0000000000000000 50 DEVAD3 DC 8Xx'00' DEVICE INFO 0000D0 170 TWOO8 EQU 208 INPROC,SUP ST,SM MSK 
512 OI IO OC OC gC a dak ak dat dak kk ik 000100 171 TWO5S6 EOU 256 256 
53 CRI IOR IOI OI OK Jom RR I oR a a gk kk kak ak 000160 172 THR52 EOU 352 352 
54 x * 001000 173 FOURK EQU 4096 4096 
55 * SYSTEM EQUATES - WAS MEMBER DCPEOQUNA * 000030 174 HTHTY EQU X*'30! HEX 30 
56 * * OO3FFE 175 H3FFE EQU X'3FFE* HEX 3FFE 
57 ORR IO IO ii doi do dca dok dek idk de de ak ak ake ok FFFFFF 177 M1 EOU ~4 —4 
000001 58 SM EQU 1 SUMMARY MASK DISABLE OR | FFFFFE 178 M2 EQU -2 —Z 
59 * ENABLE CODE FFFFFD 179 M3 EQU -3 ~3 
000002 60 AT EQU 2 ADDRESS TRANSLATOR ENABLE OR FFFFFO 180 M16 EQU -16 -16 
61 * DISABLE CODE FFFFE4 181 M28 EQU -~28 -28 
62 JO oa ag i RC a dG gtk kak kk ag ak ok ok ok ak FFFFE2 182 M30 EQU -30 -30 
63 * * O00D4C3 184 MCKLB EQU C'mc! 
64 * EQUATED NAMES FOR SUPPORTED SVC'!S * 00D7C3 185 PKLAB EQU c'pct 
65 * * 187 IGE RI ICICI OR IOI III IORI Ri ui io aii dciok gata ak teak dite 
66 3 CII GIG IO IO i ICI Gg IK OK Kk ak ak 188 * "i 
000000 67 UT EQU 0 OoUuUT SVC 189 * EQUATES FOR DISK * 
000001 68 OUTIN EQU 1 OUTIN SVC 190 * * 
000002 69 IDLE EQU 2 IDLE SVC 191 OG IG GO a igi ak doi lok a ka iaic aii ik ak ak kak a 
000003 70 ASCII EOQU 4 HEX TO ASCII SVC 000006 192 BOE EQU 6 DISP TO BOE FROM START OF 
000004 71 CHNGE EQU 4 CHANGE LEVEL SVC 193 * ENTRY IN VTOC 
000005 72 PGMCK EQU 5 ALLOW RETURN ON PROGRAM CHECK SVC 000008 194 EOE EOQU 8 DISP TO EOE FROM START OF 
000006 73 EXIT £EQU 6 EXIT SVC 195 * ENTRY IN VTOC 
000007 74 TERM EQU 7 TERMINATE SVC 00000cC 196 DSTYP EQU 12 DISP TO TYPE OF DATA SET IN 
000008 75 RESET EQU 8 RESET DEVICE SVC 197 * ENTRY OF VTOC 
000009 76 RID EQU 9 READ ID SVC OOOOOF 198 SPTE EQU 15 NUMBER SECTORS/TRACK 
QOOOQOA 77 START EQU 10 START CYCLE STEAL SVC OOO000F 199 DIP2A EQU 15 ADDR 1ST DIPL2 SECTOR 
00000B 78 STCSS EQU 11 START CYCLE STEAL STATUS SVC 00001F 200 EDIP2 EQU 30 ADDR LAST DIPL2 SECTOR+1 
00000C 79 PREP EQU 12 PREPARE DEVICE SVC 000078 201 PRC1A EQU 120 ADDR 1ST PROC1 SECTOR 
00000D 80 READOQ EQU 13 READ WITH FUNCTION BIT 3 OFF SVC OOOOBY 202 EPRC1 EQU 180 ADDR LAST PROC1 SECTOR+1 
QOOO0E 81 READ1 EQU 14 READ WITH FUNCTION BIT 3 ON SVC OO00BY 203 PRC2A EQOU 180 ADDR 1ST PROC2 SECTOR 
Q0000F 82 RSTAT EQU 15 READ STATUS SVC 0000FO0 204 EPRC2 EQU 240 ADDR LAST PROC2 SECTOR+1 
000010 83 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC OOOOFO 205 PRC3A EOQU 240 ADDR 1ST PROC3 SECTOR 
000011 84 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 00012C 206 EPRC3 EQU 300 ADDR LAST PROC3 SECTOR+t1 
000012 85 CTRL EQU 18 CONTROL SVC OOO14A 207 VTOCA EQU 330 ADDR 1ST VTOC SECTOR 
000013 86 RICB EQU 19 RELEASE INTERUPT CONTROL BLOCK SVC 000168 208 EVTOC EQU 360 ADDR LAST VTOC SECTOR#1 
000014 87 CICB EQU 20 CONNECT INTERUPT CONTROL BLOCK SVC OOO8AB 209 LDSST EQU 2219 ADDR LAST SECTOR ON DISK 
000015 88 HIO EQU 21 HALT I/0 SVC 000168 210 FDSST EQU 360 ADDR 1ST DATA SECTOR . 
000016 89 REQSD EQU 22 REQUEST USE OF DCP DISK SVC OOOOOA 211 DCPCY EQU 10 CYLINDER DCP O 
000017 90 RELSD eed 23 RELEASE USE OF DCP DISK SVC 000020 212 LVTE EQU 32 LENGTH IN BYTES OF A C ENTRY 
000018 91 HALT EQU 24 HALT SVC 000008 213 NDFPS EQU 8 NUMBER ENTRIES/SECTOR IN VTOC 
000019 92 ETOH EQU 25 EBCDIC TO HEX SVC STR TN) 000004 214 CHDLG EQU 4 DISP TO DATA IN MULT SECT'S 
OOOO1A 93 HTOE EQU 26 HEX TO EBCDIC SVC (STRING OOOOOA 215 VHDLG EQU 10 NUMBER BYTES OF HEADER INFORMATION 
00001B 94 ATOH EQU 27 ASCII TO HEX SVC TRING OOO00E 216 IHDLP EQU 14 NUM BYTES PAST ALL HEADER INFO 
00001C 95 HTOA EQU 28 HEX TO CII SVC (STRING OOOO1E 217 VHDLP EQU 30 
0000 1D 96 ETOA EQU 29 EBCDIC TO ASCII SVC (STRING 218 * ON 1ST SECTOR OF EACH PROGRAM DATA 
O0O0Q01E 97 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 219 * SET 
Q0001F 98 READI FOU 31 READ DATA SETS FOR MDI/OUTIL 221 20K ROO RI ROR JO II IR IO II IRI Ra RO RR HO ak 
000020 99 WRITI EQU 32 WRITE DATA SETS FOR UTIL 222 * * 
000020 101 VLDSY EQU. 32 NUMBER OF HIGHEST VALID SVC ashe EQUATES FOR CODED STOPS USED BY DCP * 
103 Lee cada e eGR ERS Aw RERES ERR REAEREGS FA 06554505 ER EAEECE OEN6 4945 8EEASEREEE 325 * (NORMAL AND ERROR) * 
104 * * 226 [OR iG ORO io OI OR OG ok ioi moka iOi ii ia iokoi ag i daiok dt ikea ie ak te ater age i age 
Nae ; EQUATES USED BY DCP . et tie! aoe RECD1 E : esaad eas WAIT 
10.7 OO IG ROR I OR I IR I I do tok a ik i ak teak tak 003802 339 BeECD EDU xt 3pooe BEOGULA CHECK (GRGOR 
000000 108 AUTO EQU 0 AUTOMATIC MODE IND 003803 230 MCKCD EQU X*3803° ACHINE CHECK ERROR 
000000 109 TPGSW EOQU 0 TERMINATE PGM SW 003804 231 PTWMG EQU X'38048 POWER THERMAL ERROR 
000001 110 LOOP EQU 1 LOOP PGM IND 003805 232 PSTER EQU X'3805' PROGRAM TERM 
000002 111 OFF EQU 2 TURN OPT BITS OFF 003806 233 INVCD EQU X*'38068 INVALID COMMAND ERROR 
000002 112 ON Bou 2 TURN OPT BITS ON 003807 234 ALTCN EQU X*3807! ALT IN/OUT UNDER TEST 
000003 113 UTIL EOU 3 UTILITY REQUESTING DATA 003808 235 RES EQU X'3808! ALT IN/OUT ON LINE 
000004 114 LODED EQU 4 PGM LOADED 003809 236 UXP EQU X*'*3809! UNEXPECTED fo INTERRUPT 
000006 115 STOP EOQOU 6 STOP AFTER MSG OUT OO380A 237 BPCD5 EQU X'380A* PROGRAM STARTED 
000007 118 ALTDV EQU 7 ALTERNATE OUTPUT DEV ASSIGNED 00380B 238 LPCD4Y EQU X'*380B* DISK ERROR 
000008 117 NXTVT EQU 8 TAKE NEXT DATA SET IND 00380C 239 LPCDS EQU X*380C! PROGRAM NOT FOUND 
OOOO0OA 118 IRD EC 10 MDI READ REQUES 00380D 240 LPCD6 EQU X'380D* PROGRAM LOADED 
QOQO0Q00B 119 RIMDI EQU 11 MDI RETURN REQ QO380E 241 HLTCD EQU X'380E* HALT SVC 
00000C 120 TUIDS EQU 12 SAVE THE T.U. I.D. 003810 242 RPCD2 EQU X*38108 PROGRAM NOT EXPECTING REPLY 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
003812 243 RPCD5S EQU X*3812°* PROGRAM EXPECTING HEX DATA 001DA0 00 361 cTfcood DC X'0O0! CONSTANT 
003813 244 ERR1T EQU X¥*3813' TOO MANY CHARACTERS ENTERED QO1DA1 0QO1 362 cCTCO1 DC X'ot! CONSTANT 
003814 245 ENTCD EQU X'*3814°8 ASK FOR DATA ENTRY QOO01DA2 02 363 CTCO2 DC X'02' CONSTANT 
003815 246 SVCOD EQU X*3815! TOO MANY SVC CALLS 001DA3 QO3 364 cCTCO3 DC X'O3° CONSTANT 
PURE TE TECSOSO CSOT PTS SSCL SS SSCL S SOCSCLOCS FISCSCSOSC SSCS SS CSC£ ST SS SSCS SL CSS SST SSS SS SS OOIDAY O4 365 cTcO4 Dc x'oue CONSTANT 
249 * * O001DA5 05 366 cTCOS DC X'0O5! CONSTANT 
250 * THE FOLLOWING EQUATES ARE THE DISPLACEMENT FROM THE * OO1DA6 06 367 CTCO6 DC X'06! CONSTANT 
251 * START OF A PROGRAM HEADER OF THE VARIOUS INFORMATION IN * OO1DA7 O7 368 CTCO7 DC x'o7?t CONSTANT 
252 * EACH PROGRAM HEADER * OO1DA8 08 369 CTCO8 DC x'os? CONSTANT 
253 * * OO1DA9 10 370 cTC10 DC X'108 CONSTANT 
254 OOO ORR OR I I i kkk i Fok IR I FOR IC SR a OO1DAA OF 371 cTC14 DC H'1y' CONSTANT 1 BYTE 
000000 255 HID EQU 0 PROG I.D. OO1DAB 10 372 CTC16 DC H' 6! CONSTANT DECIMAL 16 1 BYTE 
000000 256 DVADR EQO 0 DEVICE TYPE IN DEVICE TABLE OO1DAC 18 373 cCTc18 DC Xx'18! CONSTANT 
000001 257 DVTYP EQU 1 DEVICE ADR IN DEVICE TABLE OO1DAD FF 374 CTCFF DC X'FF! CONSTANT 255 
000003 258 HDDP1 EQU 3 DEVICE DEPENDENT DATA OO1DAE 3D 375 CDT3D DC X' 3D! 
000004 259 HDDP2 EQU 4 DEVICE DEPENDENT DATA OO1IDAF 50 376 CDT50 DC x*50!8 
000004 260 CPUMD EQU 4 CPU MODEL DISPLACEMENT Q01DBO A3 377 CDTA3 DC X*a3° 
000006 261 LSADR EQU 6 LAST ADR DISPLACEMENT OO1DB1 A4& 378 CDTA4 DC X*agt 
000006 262 HPK EQU 6 PROTECT KEY 001DB2 A8 379 CDTA8 DC X'A8! 
000007 263 HPK1 EQU 7 PROTECT KEY PLUS ONE 001DB3 AY 380 CDTAY DC X'*A9® 
000006 264 HPSA EQU 6 DIAG PROG START ADR OO1DB4'- BO 381 CDTBO DC x'BO! 
000006 265 INTAR EQU 6 DEVICE INTERRUPT ADR 001DB5 B4 382 CDLBY DC X'B4? 
000008 266 HDVTB EQU 08 DIAG DEV TABLE POINTER 383 ALIGN WORD 
000011 267 EXPNT EQU 17 O0OO1DB6 OOO0D 384 CTW13 DC X'OOOD! CONSTANT DECIMAL 13 1 WORD 
000012 268 TBEND EQU 18 END OF TABLE IND 001DB8 0010 385 CTW16 DC X*0010! CONSTANT DECINAL 16 1 WORD 
000013 269 SCEND EQU 19 END OF SECTOR IND 386 * 
000014 270 CICBT EQU 20 C I C B INDICATOR OO1DBA 0000 387 RYSAV DC Xx*QO0008 SAVE AREA FOR R1 
000008 271 CFEXT EQU 08 OO1DBC OO 388 CTSA DC X'008 SEARCH FOR DEVICE ADDRESS 
000012 272 HTUID EOQU 18 MDI MAP I.D DISPLACEMENT OO1IDBD 00 389 CTSA2 DC X'00! SEARCH FOR DEVICE ADDRESS - BYTE 2 
000010 273 UDTAS EQU 16 UNIT ASSIGNED BIT OO1DBE 0000 390 CTSEA DC X*'*O000! ENTRY FOUND ADDRESS 
000020 274 PDTAS EQU 32 001DCO 00 391 CTSEF DC X'0O08 ENTRY FOUND NUMBER 
000000 275 UNCRT EQU 0 UNCONDITIONAL RETURN BIT 001DC1 00 392 CTSEE DC X'0O08 ENTRY FOUND NUMBER - BYTE 2 
000001 276 CKDAD EQU 1 CHECK REQUESTED DEV 001DC2 00 393 CTAD1 DC xX'oOoO!? ADDRESS BYTE 1 
00000B 277 IOCHK EQU 11 I/O CHK IN PSW 001DC3 00 394 CTADD DC X'oOOot ADDRESS BYTE 2 
OOO0OO0F 278 NEWAR EQU 15 : 001DC4 00 395 RSNOK DC x'oo?r FLAG STATUS NOT READ OK = O01 
279 RR IRR I III OK GOI IORI RR RII IORI IR I ok ak ak ok kt ke ace ik ae ak ok 001Dc5 O00 396 DCPFL DC xtoo! FLAG FROM DCP 
280 * % 397 ALIGN WORD 
281 * THE FOLLOWING EQUATES ARE THE OFFSETS INTO EACH ENTRY * 001DC6 0000 398 CINCF DC x'oooot FLAG IN INITIAL CONFIGOURATING MODE 
282 * FOR THE DATA SPECIFIED. (16 BYTES / ENTRY) % 001DC8 0000 399 CBPA4Y DC X¥*0000! FLAG BYPASS AW KITE ENTRIES IN CSRCH 
283 * * O0O01DCA 0000 400 CCERR DC Xx'*0000!8 FLAG CONDITION CODE ERROR IN READ ID 
PEM SESS SI SS SSS SS OSS SS LCS SOS SSSS SSIS SS LSS PSPS SS SSS CSS SSS SS CSS TSS SSL SL SLL SS 001pDCcCC 00 401 CEDN1 DC X¥'O0! COUNTFR TO ENTER DEVICE TYPE 
000000 285 CUDA EQU 0 DEVICE ADDRESS O0OO01DCD 00 402 CEDN2 DC X'OO? COUNTER 
000001 286 CUDT EQU 1 DEVICE TYPE OO1DCE 00 403 CHACT DC x*oo!? COUNTER FOR DEVICE ADDRESS 
000002 287 CUDF EQU 2 CONTROL FLAGS OO1DCF 00 4047 CHAC2 DC X*'OO!? COUNTER 2ND BYTE 
000003 288 CUDD1 EQU 3 DEVICE DEPENDENT DATA -- 1 001DDO0 0000 405 CHCNT DC X*'*0000'° COUNTER FOR CHAIN LENGTH 
000004 289 CUDD2 EQU 4 DEVICE DEPENDENT DATA -- 2 OO1DD2 00 406 CTMC1 DC X'OO! PRINT COUNTER BYTE 1 
000005 290 CUDD3 EQU 5 DEVICE DEPENDENT DATA -- 3 001DD3 00 4O7 CTMC2 DC x'oot PRINT COUNTER BYTE 2 
000006 291 CUDD4 EQU 6 DEVICE DEPENDENT DATA -- 4 OO1IDD4 4O4O4040 408 CDVT1 DC ct ' DEVICE NAME RETURNED BY CDEVT 
(000007 292 CUDD5 EQU 7 DEVICE DEPENDENT DATA -- 5 O001DD8 40404040 409 CDVT2 DC ct ' DEVICE NAME RETURNED BY CDEVT 
000008 293 CUDD6 EOU 8 DEVICE DEPENDENT DATA -- 6 TERETE TESSCOCOL OSS SS SSS SCS CS Se LSS SSS LSP CS CTC SS OLOC SLCC CSCS SSS S ST SSeS TST TS Se SS 
000009 294 CUDD7 EQU 9 DEVICE DEPENDENT DATA -- 7 OO01DDC 00 411 KLKDA DC X'O0O8 LAST PROCESSED KITE DEVICE ADDRESS 
OOOOOA 295 CUDD8 EQU 10 DEVICE DEPENDENT DATA -- 8 OO1DDD OO 412 Cc X*'OO! 
000008 296 CUDDY EQU 11 DEVICE DEPENDENT DATA -- 9 OOI1DDE 0000 413 KAEA DC X'*0000! KITE ATTACHMENT ENTRY ADDRESS 
00000C 297 CUDDA EOQU 12 DEVICE DEPENDENT DATA -- 10 0O01DEO 0000 414 KDOMA DC x'0000! KITE ATTACHMENT DOMAIN SIZE 
00000D 298 CUDDB EQU 13 DEVICE DEPENDENT DATA -- 11 OOIDE2 OO 415 KADA DC X'00! KITE ATTACHMENT DEVICE ADDRESS 
QOOOOE 299 CUDRI ou 14 DEVICE READ ID DATA RETURNED 001DE3 00 416 KADA2 DC X'OO0! KITE ATTACHMENT "* " BYTE 2 
301 2 OR I IO I II IRI OR RR dk 2k IG dO ok ac eo ae OO1DE4 0000 417 KADAL DC X¥'*OQ000! 1 PAST DOMSIN OF KITE ATTACHMENT 
302 * * OO1DE6 0000 418 KADAT DC X*0000° 1 PAST DOMAIN OF KITE ATTACHMENT 
303 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE * O0O01DE8 0000 419 KAIC DC X*00008 AI CHAIN SEQUENCE FLAG 
304 * START OF A QUE BLOCK OF THE VARIOUS INFORMATION. * OO1DEA 0000 420 KAICE DC X'0000* ENTRY ADDRESS OF LAST CHAINED ATI 
305 * 54 U2 1 eo RICO RO II tok I kk iotatciok iii ka tok tog kot ak ito ec oe 
306 3k OR RR IC CIC ao ao ak ok ack tee ok ok 0k kk a 422 * WRITI CONTROL BLOCK 
000000 307 QIAR EQU 0 IARB OF CALLING PROGRAM OO0O1DEC 1DF2 423 CTRL5S DC A (CTRL6) @®@ CONFIG TABLE NAME 
000002 308 QAKR EQU 2 KEY REG OO1DEE 3000 AQ24 DC x*30008 WRITI @® OF CONFIG TABLE 
000004 309 QLSR EQU 4 LSR OF CALLING PROGRAM OO1DFO Q800 425 DC X*'0800 * WRITI # WORDS TO WRITE 
000006 310 QRO EQU 6 XRO OF CALLING PROGRAM OO1DF2 F3F8C6F1 426 CTRL6 DC C'38F1* CONFIG TABLE NAME 
000008 311 OR1 EOU 8 X¥R1 OF CALLING PROGRAM Ow METSTSSSSSS SCS SOSSL CSCS SS STS SSS SLCC LSS SSCS SSL SCLC SSS TSS SS SS STS TS LIS SST eT SY 
QOOOOOA 312 QR2 EQU 10 XR2 OF CALLING PROGRAM 428 * CONFIGURATION TABLE 1120 BYTES 
00000C 313 QR3 EQU 12 XR3 OF CALLING PROGRAM 429 * ENTRY ZERO = SYSTEM INFORMATION 
OOO000E 314 QRY EQU 14 XR4 OF CALLING PROGRAM 430 * ENTRY 1- FF = DEVICE DATA 
000010 315 QR5 EQU 16 XR5 OF CALLING PROGRAM OO1DF6 0010 431 CTLEL DC X'00108 TABLE ENTRY LENGTH = 16 BYTES 
000012 316 QR6 EQU 18 XR6 OF CALLING PROGRAM OO1DF8 1000 432 CTLNG DC F'4gg96? CONFIGURATION TABLE LENGTH 
000014 317 QR7 EQU 20 XR7 OF CALLING PROGRAM OOIDFA 3000 433 CTABA DC x*3000'! ADDRESS OF CONFIGURATION TABLE 
000016 318 QOSVC EQU 22 SVC NUMBER OF CALLING PROGRAM QOIDFC 3002 434 CTABU DC X¥'3002! ADDRESS NUMBER OF ENTRIES USED 
000017 319 QRAL EQU 23 RETURN CODE AND LEVEL ENTERED OO1IDFE 3003 435 CTABC DC X*'3003°8 ADDRESS OF CONFIGURED FLAG 
320 * INTO SVC ON 001E00 3005 436 CTABP DC x*30058 ADDRESS OF SYSTEM TYPE 
000018 321 QAV1 EQU 24 AVAILABLE WORD 1 OO1EO02 3006 437 CTABS DC X*'*30068 ADDRESS LAST USABLE STORAGE 
OOOO1A 322 QAV2 EOD 26 AVAILABLE OOTEO4 3008 438 CTABN DC X*' 3008! ADDRESS ALT CONSOLE ADD-TYPE 
324 [aR GOR OO a I OR oo do ak dee ke tk kok 2k 001F06 3FFO 439 CTABF DC X'3FFOr ADDRESS LAST ENTRY 
325 * * 001E08 00 440 CTMNE DC X'00! 255 = MAX # ENTRIES IN CONFIG TABLE 
326 * THE FOLLOWING EQUATES ARE THE DISPLACEMENTS FROM THE START * OO1E09 FF 441 CIMNF DC X'FF! " con 6 6B 2 
327 * OF EFACH SLOT IN THE DEVICE TABLE TO THE VARIOUS * WWMETESSSSSCS SSS S SSS SSS SSS SS LS LSL SS SS SS SPS ST SL SL SSS SL LT eS 
356 : INFORMATION IN EACH SLOT : He : CONFIGURATION TABLE FIELD EXPANSION 
330 3 OR ok OR OR Oo a oko ok ok lok ikki dakota ik tok dog ak ke idk ak oe ok ak “Us ALIGN WORD 
000002 331 OAG EQU 2 RETURN ADDRESS IF COND CODE OF OO1TEOA 00 446 CTDA DC X'O0O! DEVICE ADDRESS 
332 * INTERUPT MATCHES THE COND OO1EOB 00 Gu) CTDT DC X'O0O? DEVICE TYPE 
333 * CODE AT OCC OO1EOC O00 448 CTCF DC B*00000000° CONTROL FLAGS 
000004 334 OAB EQU 4 RETURN ADDRESS IF CONDITION KuQ * BIT 0 - USED BY DCP 
335 * CODE OF INTERUPT DOES NOT U50 * 1 - CHAIN ENTRIES 
336 * MATCH CONDITION CODE AT OCC 451 * 2 - LAST USED ENTRY IN TABLE 
000007 337 OCC EQU 7 CONDITION CODE EXPECTED 452 * 3 ~ LAST ENTRY IN EACH SECTOR 
338 FO IOI I I IG IG ik doko ok ok 453 * 4 —- RESERVED 
300 OO CC OI ROC go oko oR dak dk dak go kk a ok us5y * 5 — RESERVED 
341 * DATA FOR 2ND AUTO CONFIG 455 * 6 —- RESERVED 
[02 COO GC RIG ICI ICICI I II ICI I II RIC OR RI HO a of feo coke a u56 * 7 - END OF TABLE 
000100 343 CTINAD EQ 256 # DEVICE ADDRESSES OO1EQD OO 457 CTDD1 DC B*'*o0Qg000000! DEVICE DEPENDEN 
CVV TETeSSCCCOCSTSCCS CL SCS SSS SS SS SS Se eT TS Se Te Pe Pe eT Se SSS SL LTS SPSS tet fr 2 SS OO1TEOE OO 458 CTDD2 DC B' 00000000! DEVICE DEPENDENT 
001D88 0000 345 OLYRA DC A (*-*) OVERLAY RETURN ADDRESS OO1EOF 00 459 CTDD3 DC B*'00000000! DEVICE DEPENDENT 
CVV S ETT CSOSS OCS SE CLS SSCS S SSL SOS SS CSCS SOS O TES SSS SE SESS TES SESS eS Se LL eS SS SS 001E10 OO 460 CTDD4Y pC Bt*Q0000000! DEVICE DEPENDENT 
OO1D8A 180A 347 ARTNE DC X'180A° ADDRESS OF RTNE TN BASIC 001E11 OO 461 CTDDS5 DC B' 000000008 DEVICE DEPENDENT 
001D8C 1812 348 ADATA DC X'1812' ADDRESS OF DATAB IN BASIC 001E12 00 462 CTDD6 DC B*Q0Q0000000! DEVICE DEPENDENT 
QOO1ID8E 1814 349 ADEVA DC X¥'*1814! ADDRESS OF DEVAD IN BASIC 001E13 OO 463 CTDDT DC B' 00000000! DEVICE DEPENDENT 
001D90 1816 350 ADEV# DC X'1816° ADDRESS OF DEVA# IN BASIC OO1E14 OO 464 CTDD8 DC E*00000000! DEVICE DEPENDENT 
001D92 1820 351 ABEG2 DC X'*'18208 ADDRESS OF BEGIN+2 IN BASTC O001E15 00 465 CTDDIS Dc B*00000000! DEVICE DEPENDENT 
001822 352 ABEGP EQU X'1822' ADDRESS OF BEGIP IN BASTC 001E16 OO 466 CTDDA DC B'*00000000! DEVICE DEPENDENT 
001826 353 ne eGg EQU X'1826! ADDRESS OF BEGIOQ IN BASIC 001E17 OO 467 CTDDB DC B* 00000000! DEVICE DEPENDENT 
001D94 182A 354 ADSAW DC X*182A8 ADDRESS OF SORT & WRITE IN BASIC 001E18 00 468 CTDID DC X*'0O0! DEVICE READ ID RESULTS 
001D96 182E 355 ADSAR DC X'*182E* ADDRESS OF S & W RETURN ADD IN BASTC 001E19 Q0 469 CTDI2 DC X'oo! READ ID RESULTS - BYTE 2 
001D98 1830 356 AIPLP DC X'1830° ADDRESS OF IPL PASS SWITCH IN BASIC TQ ex Ra I a i a kk ok kk ke dk ko kk Fk rok kok doko ak kok tok dk ok 
OO1D9A 1836 357 AOLRA DC xX'1836! ADDRESS OF OVERLAY RETURN 9 IN BASIC UTD RRR HH HI KR HH RH a He ee Re a a i ok oe ie 2c 
001D9C OQO24A 358 ACIPL DC X'O2QUA! ADDRESS OF IPL CONFIG IN DCP 473 * CONFIG TABLE MESSAGES = 3820 -38DF 
CGT ISS TST SPSL SSS CSS OCCSCSCL SSCS SSS SCS SC LCCC CSCCSCCSS SCL CSCS SPSS TSS SS PS Ss tS. fs “74 * 
OO1D9E 0021 360 LVL DC x'0021' DEFAULT PREP LEVEL 2 & I BIT (15) 475 * CONTROL BLOCK OUTPUT 
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2ND AUTO CONFIGURATION OVERLAY 


OBJECT TEXT 


Of WHOM 
Or MYNIO 


D5C6C9OCTE4DIC 


COG ONW RimaO 
COO OWOM Who 


oo 
Oooo 


On Wen 
AO WAS 


D5C6C9C7T4OC5D 


ONW Wao 
COWO WHO 


C9C740C5D 


OfNW WemOO 


C3C37E40 


OfONW Maco 
SOowwnm srcoo 


4Y¥OC3DEDS5C6CIC 


OCOWOW hjimaOO 
COUlM NHrHOO 
OW Wem 
nrg mye Oo 


QS mMOC 
MO MeO 


E5C9C3C540D5D 


ONW hyaAOo 
OFO Whoo 


= oo C> 
roo 
rdJO 
Cd tr a 


C4HDSC5SE2ZE27TE 


ND ed ad aed ow 8 dk ad oD OOOO OOO OMOWOWMOYD NO DOD DODDODODDOOO~)]~)]~)~J 


SVS SVIVIVUSV SVT SIS SUSI VST ST ST OVS SUT OV SV OTT SVS VSO UOT STOTT UST UPTV STV OVO SUNT OV STI SIS TOTO SIN SISIOT AAAI AOI AOI NANNIES SSS eEePEEEeEerrEeSrErrscer 


WOOO COO MOD OOOO OI II SI SII SID ADAAAAHNIANUISICIOIUIONN SE EE EEE REE WWWWWWWWWWDNDNNNDNDN 
BOVUOYNOANIE WN BOW OUNNOTE WN AOU DNNEWNOUWDANNDUNIE WN BOW ONDE WN OO ONIOUTE UN ROU ODN EWN MOU OA NULE WN pOWONIDUIE WN) BOW DOWNIE WN BtOVWOAWOUIEWN BOW OA 


~Y VU UU UD UU © 


SOURCE STATEMENT 
eos WORD 
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D 'OOCO! 
CTM8 DC A CTMBA) 
DC A nih 
* OUTPUT MESSAGE 
DC X'38UAt 
CTMBA DC C CONFIGURATION TABLE IS FULL! 
* HEX TO EBCDIC CONTROL BLOCK 
CTM20 DC A (16) NO BYTES HEX DATA 
CTM21 DC A (0 DATA ADDRESS (HEX x) 
CTM22 DC A(0 BUFFER ADDRESS (EBCDIC) 
* CONTROL BLOCK OUTPUT 
ALIGN WORD 
DC X'O0CO! 
OSPER DC A (C3828) 
DC A (-1) 
* OUTPUT 
DC X'3828! 
C3828 DC C'CONFIG ERROR-INT DI/DO! 
: DC X'008 
* CONTROL BLOCK OUTPUT 
ALIGN WORD 
DC 'OOCO! 
FFO2 DC A FFO 2A) 
DC A(-1) 
* OUT 
DC 13833! 
FFO2A DC c ‘CONFIG ERROR-OIO CC= 
FFO2B DC 
: DC X'00' 
* CONTROL BLOCK OUTPUT 
ALIGN WORD 
DC X'00CO8 
FFO3 DC A (FFO 3A) 
DC A(- 
* OUT? 
DC X'38358 
FFO3A DC C'tInT cc= ' 
FFO3B DC c! 
. DC X'00" 
* CONTROL BLOCK OUTPUT 
ALIGN WORD 
DC X'00CO! 
FF058 DC A(FFO5A) 
DC A (- 
x OUTPUT 
DC X'383F! 
FFO5A DC C'NO CONFIGURATION ENTRY! 
: DC Xx'00! 
* CONTROL BLOCK OUTPUT 
ALIGN WORD 
DC x1 0080" 
FF06 alas 
A(-1 
* OUTPUT 
Cc X'384C! 
FFO6A DC C'DEVICE NOT ATTACHED! 
DC X'00! 
* CONTROL BLOCK HTOE 
FFO9 A(1 # BYTES HEX DATA 
FFO9A DC A(DEVA DATA ADDRESS (HEX) 
FFO9B DC a {PE IOR BUFFER ADDRESS (FBCDIC) 
* CONTROL BLOCK OUTPUT 
ALIGN WORD 
DC x'0080! 
FF10 DC A (FF10A) 
DC A{-1) 
x OUTPUT 
Cc x'38uc? 
FF10A DC C!ADDRESS=! 
FF10E DC Cc! 
i DC X00 
IE Ae he ee fe he ee fe he oe ee cafe She he 2 aR 2 2K 2 ace ac he eke ae eae of he 2h ae 2c he ce he ae 2c Bie 2 oe 2 ke ofc af ake ae oe ofc afc 
* END OF CDATA 


We He HI eH A I a 2h He a ee i A ae fe fe 2h 2h 2 fk fe ie he af 2 a 2 ke he 2 ak ea 2k 2 ae af 2 akc fc kc ate ake ke fe ok fc ac 


ALIGN WORD 
SOR I OR CII CR I IR III IO ICICI IGOR II ROK IO sak ok ae ok 
* BEGIN MAIN PROGRAM 
FOR IR IR I RC io la og ok Rk ok ak i a gk a ak 
PEGINI MVW R7,OLYRA SAVE OVERLAY RETURN ADDRESS 


B TERN GO DO TERN AND OTHER DEVICES 
AO ak a ok tok RC OR I RR a I dk kk 4k 


WR He 2 ee Fe eh 2 2 2h ak 2h ac i he ik I 2a He 2 2 ic a 2c 2c ee ef 2 ae 2h 2c af ake fe ee oe ae ee i ake cf a ae ate ek ic af ake ac oe 


* PROCEDURE WHERE AM I 

* INPUT WAMI = C*XXx! 

* RETURN NEXT SEQUENTIAL INSTRUCTION 

A OK OR ICI CC ICI CC ICRI Ia Oa CI OR IC RO Rk tc kaki tk ak 


CONTROL BLOCK OUTPUT 
DC Xx¥'0080! 
WAMI2 DC nent) 

D A(-1) 


DC x. ee 
WAMI3 DC C, WAMI=='" 
WAMT DC Ct 


DC Xoo! 
Fe ROK Ck 


* WAMIRA DC A (*-* RETUPN ADDRESS 
AC OR IR I OR II IIRC I RR RCI kk kk Rk a aOR dak a ie ak ak 


HHH HH HH He 
o>) 
j=} 
t 
rg 


* WHEREAMI MVW R7,WAMIRA SAVE RETURN ADDRESS 
* MYA WAMI2,R7 
x SVC OUT PRINT "WAMI==XX'! 


* MVWI C! " WAMI REINITIALIZE 
WAMIRA* 


a B RETURN 
He Ae He a he ie a a fe oe eae he fe he ah 2h ae ae fe ee fe te ae 2c oe 3 ae ok fc he fe ok a ae i i i ok ae He oe 2 oe he ee a ee 2 ok he of 2h ae oe oe he of 2 ok te 
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2ND AUTO CONFIGURATION OVERLAY 


OBJECT TEXT SOURCE STATEMENT 
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ee KK a Re tc a a oR oe a i eR he a a a a ae eo i i a a KR KK KEKE KEK KK KE 


* PROCEDURE SEARCH MEMBER=CSEARCH 
* SEARCH CONFIGURATION TABLE FOR A DEVICE ADDRESS 
* R7 CONTAINS RETURN TO ADDR 
* CTSA = DEVICE ADDRESS TO SEARCH FOR 
* CTSEF = 0 IF ADDRESS IS NOT FOUN 
* CTSEF = ENTRY # IF ADDRESS FOUND 1 -63 
* CTSEA = START ADDRESS OF ENTRY IF FOUND 
PSSST SSSSSSSSSSLSSSSSSSSSSSSSSSS SSS SSS SS SOS SS SL SSS SSS ES STS SE TS F 
CSRCH NOP 
CXSO1 MVWI  1,CTSEF FIRST ENTRY FOUND # 
MVW  CABA,RI1 CONFIGURATION TABLE ADDRESS 
MVB (Rt 2 ,R2 R2 = # ENTRIES IN TABLE 
AWI 6,81 ADDRESS 1ST ENTRY CONFIGURATION TABLE 
CXS02 CB cTSa2, (R1) 
JE Cxso4 J IF ADDRESS FOUND 
CXSO3 AWI 16,R1 INCREMENT ADDRESS 
AWIL 1,CTSEF INCREMENT ENTRY # 
CW CTSEF, R2 
JGE  CxS02 J IF MORE ENTRIES TO CHECK 
MV WI 0 ,CTSEF ADDRESS NOT FOUND IN CONFIG TABLE 
* ENTRY FOUND 
CXSO4 CWI 0,CBPA4 CK BYPASS KITE FLAG 
JE cXso5 
* BYPASS A3 KITE OEMIA ENTRIES 
CB CDTA3, (R1, 1) BASIC KITE DEVICE TYPE = A3 
JE CXS03 BYPASS & CONTINUE SEARCH 
* BYPASS A4 KITE ENTRIES 
CB CDTA4, (R1,1) KITE DEVICE TYPE = A4 
JE CXS03 BYPASS & CONTINUE SEARCH 
x BYPASS 3D FLOATING POINT ENTRIES 
Cxs05 CB CDT3D, (R1,1) FLOATING POINT DEVICE TYPE = 3D 
: JE CxXS03 BYPASS & CONTINUE SEARCH 
CxXSO8 MVW  R1,CTSEA 


R RETURN 
RIO I RA RIOR IORI IORI IIR IO I Gi aR 10k 4 


* 


END OF 


SEARCH PROCEDURE 


He He He ee he he ke a ae ke ke ee Hee 2 i he he fee a he oe he i ek a he he oe ak ae 2k a oe a ec a a a a a a oe ok ic ee ea 
He he he He 2 a 2 oe 2 i ee ee ee i 2 ee 2 ae ae hee 2h 2k He ie fe fe 2c a ae a te he cc Oe he Hee he ee he he ok aK ee eK 


URE READID MEM BER=CREADID 
EVICE ID 


ADDRESS LOCATED AT CTIDA 


* DEVICE ID RETURNED IN CTIID 
FO OR IO RI IIR I IRR a ac a ck ok 


* PROCED 
x READ D 
* DEVICE 
% DATA D 
CTIT2 DC 
CTICT DC 
is CONTRO 
CTIO4 DC 
DC 
DC 
DC 
DC 
CTIOS DC 
CTIDD DC 
CTIDA DC 
CTICA DC 
CTICC DC 
ALIGN 
CTIID DC 
CTIDF DC 
* CONTRO 
ALIGN 
DC 
CTI15 DC 
DC 
i OUTPUT 
DC 
CTI16 DC 
CTI17 DC 
DC 
CTI18 DC 
DC 
ALIGN 
CTI20 DC 
CTI30 DC 
CTI35: DC 
CTI4O DC 
CTI45 DC 
CTI50 DC 
CTI55 DC 
* CONTRO 
CTI60 DC 
DC 
DC 
Ae He He ke 2c 2 ae a ae ak oe 
* PROGRA 
CYRID NOP 
CYI01 MVW 
CYIO5 MVWI 
MVWI 
MVWI 
* START 
MVA 
SVC 
* READ I 
MVW 
MV WI 
MV WI 
Me HK KK KK KK 
* RETURN 
* EST C 
CYI10 JEV 
JCY 
BOV 
* DEVICE 
* ERROR 
* BUSY 


EFINITION 
X¥'0000! 2ND TRY FLAG 
X'0000' WAIT LOOP COUNTER 
L BLOCK FOR SVR RID AT AYIOY 
A(CTIDA DEVICE ADDRESS POINTER 
A(CYI10 ERROR RETURN ADDRESS 
A t0 RESERVED 
A (0 RESERVED 
At0 ADDRESS OF SVC LAST USING 
x*0000! RETURNED DEVICE ID 
X'00! DUMMY TO CONVERT DEVICE ADD TO EBCDIC 
X'00! DEVICE ADDRESS (BYTE 
X'00? DEVICE ADDRESS FOR R 
X"008 CONDITION CODE FOR R3 
X'0000! RETURNED DEVICE ID 
X'0000! DEVICE FOUND ON ADDRESS FLAG 
L BLOCK OUTPUT 
WORD 
X'O0CO! 
A (CTI 16) 
A (-1) 
ESSAGE 
X'3844" 
C'CONFIG ERROR-READ ID D.A.=! 
on ' DEVICE ADDRESS 
C' cc =! 
crf CONDITION CODE 
X'00! 
WORD 
ctotq EBCDIC CHARACTERS 
C102" 
C103! 
Croge 
C405! 
C'06t 
C'o7t 
L BLOCK HTOE 
X'0002! HEX DATA 2 BYTES 
A (CEDD) DATA ADDRESS 
A(CTII7 EBCDIC OUTPUT BUFFER - DEVICE ADDRESS 
2 2 Pee SSS SEL SS SLL SSS SSE SSS SSL SSS SSL SSS LES SS SSF SF SF. 3 
M START 
R7,R6 SAVE CONTENTS OF R7 TO RETURN 
0,CTIDF RESET DEVICE FOUND FLAG 
OfCTIID RESET DEVICE ID 
0’CCERR RESET CC ERROR FLAG 
READ DEVICE ID 
CTIO4,R 
RID START READ ID 
D COMPLETE AND CC=7 
CTI0O5,CTIID RETAIN ID RETURNED 
i,ctrhr SET DEVICE FOUND FLAG 
O’CTIT2 RESET 2ND TRY FLAG 
cf¥I70 J TO END OF PROC 
- SSS eS SSL SLES SSS PLS SLPS SPS PSE SES SSS SS SSS SSL SSS FS StS F ' 
AFTER RID - CC NOT = 7 OR CC=7 FROM CONTROL BLOCK 
ONDITION CODES RETURNED 
CYT4O J ON EVEN 
CYT30 J ON CARRY 
CYI20 J ON OVERFLOW 
NOT ATTACHED 
CYI70 
ON RID TO AN ADDRESS 
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DEVICE NAME VTL 
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755404 


8327419 EC= 


P/N= 


O38F3 - 2ND AUTO CONFIGURATION OVERLAY 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


STMT SOURCE STATEMENT 


OBJECT TEXT 


LOCTR 


We Ra He aR i ae ei ee Reade cok de ae a a a ok 


MPX RELAY 


LE 
BLANK NAME FOR UNKNOWN DEVICE 


[eat <3] 9 £53 fF} FI fy fo 23 Fr Fx fest] Fe £3 
Cus: Aus Aus: Aus 
D4 at Piet Dat D4 act 4 ac D4 ect bt ctl D4 ett 
Ez Ez Ei 4c; 4 bz E402; He 

a a a A a a a a 
PMH PRY ARH SEW SMH ARH RR PY 
UU VO UU UU UU UU UU UU UU 
<MSHHAMHHAMHHAMSHH AMHHAMHHAMHHASMHHAMHH 
NPE NEE A> > AHP aU>P RN > ANP aN >aAnN>> 
<9 FT FY vet Fa] FD GY ees Fe] FY FY neck FEY] vest FY Fa) FY och FF) PY om 9 FF vet} Fo Pe] oat Fx) a] 
SAARZAARZAARZAAR m=ZAAmZAAmRmMAAmREAAR=EAA 


fx 9 BH ft Aw 


NAME INSTRUMENTATION AMP 


TYPE 


Ha Ha At HASH 


ABT HR Fa FD sD FT I a 
VULUUUO 
ASHH AMHH  * HHHHHH 

ayb>> aU>> AK >> >b>>>a 
Ite Plt Be PUM 
BEAR mBZAA we AAARAAAH 


DEVICE NAME 4978 DISPLAY 


DEVICE NAME VTL 
eh 
N 

READ ID 

MASK 


READ ID 

MASK 

DEVI 

DEVI 

DEVICE NAME CRT 
READ ID 


MASK 
DEVICE TYPE 


DEVICE TYPE 
DEVICE TYPE 
DEVICE NAME 
DEVICE TYPE 
DEVICE NAME 
DEVICE TYPE 
DEVICE NAME 
DEVICE TYPE 
DEVICE NAME 
DEVICE TYPE 
DEVICE NAME 

Cc 

Cc 

Cc 

Cc 

oO 

* 


READ ID 


DEVICE TYPE 
MASK 


READ ID 
MASK 

DEVICE TYPE 
READ ID 
MASK 


Rok tok OK Rk a kok RR ok koko doko kakotokok lok dk doko ok dk eK eK EEE KEE KEK EEE 
ROR ROR IO IO GR OR ok Rik tokok tofoktok dokokokotokak tok 20K RK EEE REE KKK KEE 
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UPS rd oc UO be she PSPS OU DS PSG DS PSO PSU DS SL P< Bs BU Bg dL BS Bd BO Bd GU BS Bd PSO Bg SU OS og PSU GPSS OS DU Dd OU Oa GU PS PS CU PS GOES 


X*'0000' 
AI OR IO OIG RII I IOI RIC ak 


DEVICES WITH NO READID 


DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
TUN DC 


DV 
* 
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* * * % * *% * e+ FFA 


MSTMNOPDHAOKNAMATLOPDHNOKH NN PNOPEDNHNOEKAMANOM DNHNOKAUMANOEDNDKNAM SANE DNOTAM SNOOP DNHNOKNAM ANOKODHAOSCNMANOEDHOSCENAMANOMOHNOSEAMAMNOFDHOENMIAWE 
NANNANNAN AMM MAM MM MOO) SS tS SS aT TNNN NWMINNNLINO ODDO DOUDOUUOUE EEE EERE EE ODDDDDDDDANAMAAAAANNADO OOO QO) FCPS MK KC COE NANANNANANAAMMMMMmMen 
99 0900 09 CO ODO CDW DOC DO DO DDO DDD ODDODDDODD ODD DDD D DDD DDD DD DDD DD DDDDAND DDD DDDDD DDD VDDD DOD DDD DD ANAAAHAARAAHAAANAHAANAAAAAHAAAAHAAAAHAHAAAAAAAAAAAAGH 


i) © © © © oS oS © Oo a) fm) (o) ~~ oO N io) So oS oO © © a) © fo] oOo DOD & 
— a fn a ~ J za Pe 9 a UO <r a = U a 4 i= ne cn ins = = a a cd t+ + OF + 
>) o>) o>) foe) foe] o>) oC o>) oO © io) oO co) co] oO oO ~) ~m m ~ ~ N o = om Om & 
a io x ic) ica) a os + i =a hg ino g =a =z cao a+ A Aa aA A Aa i | a UO zs UO UO + 
© © io) 2a -~ fa) on \O fon) oO wo OV oOo toy) Ov \O N N N A =a co © Ww No ~~ MM © 
= st eg U UO cn g U A .o) O a UO UO U U a f cs 4 a aA ca a 3 UO ] A Ws 
om) io] Oo mM ~m OV st > ot = i g - - = - - oO oO Oo Oo >] N >) ae) ~ +r -— Oo 
ot cs g or a A =) U O YU oO O UO oO U .o) UO + or Kg + or xX =a <3) A VU YU = 
N N N ™ é Ww oO co) oO om) oO om) >) °o oO co) - ~- ~- - er om) Oo w oo oO 8 
a A A A a U no g z+ 9 Po g ot zt zt a i i O U U U O fn =z UY srs, z+ +> = 
N N N N N x aa] ae) Ve) oO oO Xe) \O \o oO \o ~m ~m rm ~ ~” = N ~m Oo +r O O&O 
ee my fry 4 <3) a) ica ice Aa A =) A A =) =) Q U O A U O Q ca A HY aAA = 
DNODNANODEN OOAFHHOMND DOOM DOOMNDODOMVDODONDGOONDOAHOSCDHADDDNHNGODNDODNDONN HMODMWDONWOCOTFHOHAMVWVOEKN WMOFTO COMM MOON © AMMNAHNOO 
YVMorVoeocrO DOTVOCOTFOU NOMNVU TOMATO QOONQNVTONVUTOMUNGCKUNGCAUMOMUMOMUAOCKU COMVOCOCHARKNHUCONRUCORAN KORA MOMU hOoOOU Oo MAGOROOst 
SOoOOOSTKOCSOTF SOOSFAOSOOSOT DOOM WBDOSOONGGCONAGVPDONDIOON GV ODNODGCONCDODNDOONSGSOONSSON DOOTCOONCSCONSOPOCTOPON OFOM COOM hoor Oo OCOUWUCWONDO 
VOMOOVUMGTONYD DBDOODVGOSOYN OCCOH VUCOUVUDOUDCO ADCO DNDOCONDODOHADDONDOONDOOMRODCOCOHN cK“OCOUrDOOURMOCODNOOUNGDOU NOOU COOH HOoOOU oO OQvuocanchost 
DONASTOHONS URONKZOMO DAUR ODMUSTODANFODONAOHONST UBION ZLUROCODOMUMRWODMUPODRE NTODONATODONFOUNDONEUHOSO ODOUR OD wzsroOmOMt N sro Om <Nna 
OE PEEKANN NANMMMMMS SHtat NMNWMNWOWOOUORRERODDDDDNADHAANA AA KMOMMMMQOUVVLARRA ANAM Rema NOCCCOPR RR RN ANNAN mmmm sstssr MN NNNOOORE 
CM MONNNNNNNANNNANN ANNAN ANNAN NNNN ON NNANNNANANAAN 
NANNNANANN NANANNNANNA NANA NANANNANNANNANANAANAANANNNANANANANANNANANANNANNNANANAN NAANNNANNNANNNNANNNNANNN NNNN NNN NNNN ON NNANNANAAN 
OOOOODOOD DOMOVDOOODO DOOD DOCOMO VOSOOSO OOD OWMDDD DODO OSOOS OD DOOOSCOOSOODOSOOOSOSOOND BDODDOOVDSOSTOOWOSOODSOOCOOSSOD OOOO DOOD D2OCO O Cooo00c00o0 
OOooo00090O TCODDOTOOD COCODQ CODVSTOOCOSOOSDO ODO ODSDSGOSOSOOSOSOODOODODSOODOSOOOSOSOSOSON = SOOOOSCOSOOOCOOSGOSSoceeoo COO00 COOdOd cOo0O oO Ooooe0oo 
wo m& 

ke (o) + * 

fey a * % 

z om * * 

© ise + % 

oO + * 

[o= % % 

=a ic) * * 

= jon te = * * 

ul fe Oe fa % ## COo* 

O H Zale «< %* + Oo* 

OU = te % HH oor 

= © H 1) Ha 1S) * + oOo* 

co se O HA < gt O - %+ %+* * 

O BS H YU ate J joa e *% + 1 il % 

cH = =A fy DH Meo e %* + * 

sq = DHA —< Om fon %* %H AA 9) uy 2) 
wr fty Oao mr > Ril mn tl % He ca fcak uw? “) <p) 
iH BA UNO Oe fea fu muy %* %#* Za ics) & fy 
O HF VU Bey & E, = Ay OH UY % HH Ce RH <= =) 2 3) 

OO & FH wa ala oO mm Ue %* %HE Dox O U 1S) 

H > OC HH He Qa wo UK A | % HH — HEX eH & eH 
a YH OUZz BH z. za (o) na fry +e HH O Hike D > > 
=a AA ARF Of N HH Hm Neg e + Kt re Mm A Aa A 
N 4 N= OG AH aim <3) eet] + HH =) # 

N & Bbw eH “— HR me OO % HH OD won fy j<aics| IF cag cat c3) sac) fF sate] & 
< a & & OO fr om & AU m& %¥ ##* ARK QO mar Aas aE 2 Os atk 2s} oY} > fot} > Os joy 2} ay 
H HH N NOU AR 9) D MOU Ar ma %e €%e He sa) * PKG Pint al Pie Paine ake’) iG Pat > 

YY HF Won es) Oo 20 ae WA %# + A “— ee OK Ha Ha Ha Ha Ha He He He E+ 
mm YN G&G BNE POP m on | = # *#H CS A * =) a A =) i=) a a a a 

ce nN HA O * j%## MO oH F BH ARH Ae Rae BR le Rea Bea BR 
=z NM 1S) te) H# oH Br EAN + UU OO UU UO UO U0 UU OU U 
me N ~*~ in ita) \o ~ Oo HEU ei & x H coe AMAA AMAHHOAMHHOMHHOAMHH OMHHOMHHOMAHAMH 
Ul tN WW I tl tl Ul UO iH > He + He Beh =O + GNESI rar arr a> MNS Per aU > eu 
oO oO 1S) 1S) 0 O U hm b+ mM mk * j%## OO =O cate ogcaicalcor -dcatcalcse -egcaicaicay feapcsical etcaicoMecoy icsicogcshicaicxicsy fc atcsicsy ice) 
O UO 1S) oO U O 1S) aq UMD Am AN %* € ~_ aco GBSQAAGREAAMZAAMZAARZAAR BEAAQGEAAGZAARTZA 
m& << ma * +X H OtO # 
= o) ei a *# *F* AE BHU * 
i] is) ei + FF DA AS Mm * 
wy G He Oo %# %F#H# WR HR + 
ce fx = H %+ 84% WAH HACH * 
jee H * *%* & A zO * 
I ip) * <** AHA a 
joe =) 4 n H#AXHe EO UO * 
a & Aa ca ac a eo H+HEeEX OROAHNEN * 
= eH = joa O me ic) ¥AKRK MES aH 
> fe > an! fe a U A i) HeCeHe BARS * 
jo) «<< oOo @®OU ou OO MOU WOU OU OY O AB A Cat a= *Ree AGRA tA * - - - = had - - - 
(a4 fr OD HeO eO Or Ur eu —U Gm HH nu om £eeteH HGH * rf 3) 2 
Gy H rie rir Rie Ree Hire ae Me wm UO Oe D> &€ He Ql ne * 20 fom fe} = E+ 
- ™ Oo UO ew Be NHR HAH REE eee NAH HR »~ EAE AAMSE HH * *#+# Aly Pom * Om 3 3 4 GH 
N WNwe OH HH WNoOO HOU ULO OU HOU DoU OU = UM BSUG&me MA #AFKOHNMWOOQ O *#HHe&e = wee few e Hee me sewer HM eee eee Pee 3e le 
BH OR ® HO UR OH es. Ges es =a se gee mgs wee He KF He see COG £MOHHO MORO HH FH COO YOOTHZOOWSWOCOMVORM ODM COOMEODNMNOO 
MOONS H FH HON UHOTOM ONOMNMMOOCOMOOCTOAMMNOM CWOCKMErOCa COPO M<cn fF Oe FA > #£ HDC OtHOOWHOOWOHOCOIAUNNOSAN HOP NMOrNVSENcKOMr 
HN HORMHHRAH wo HNOOMEMOOMMOONAHTOW FSFOONMBMOWOMOUOHn OCPAWOHMOARVUEY OlRt ate O aA +t ZROCOCHNCOHKMOCOMTOCOHTOOH DOOCHOOCOHMOOCOHOOCO 
URHOHNHOURUSDHH QUHURHRAHOUHGTHORHHAHOHAHOHHRARHOHHHOHR OCHAHORHHHHU OF RX * BH BH A #F# HREOC OCOHOOCOCAOOCOCOAMOOOASDOOA DBDOOCRCOCOCACOCOCASCOoSO 
a) BHI oO COM 2 HANH HRA OA ew BRD BUH OX OP HHDD »s H#himzeeme renee r er ee eee ee eel we ee we em ew ew ee 
KVUPrRKURBOHRKATOUU NOVUULURUUUALDULDUUNRUULUUZULULUUHOUUEUUU *# HUHUMHULVUORPONW*® OF # DMD Dek HE bbb OU Pd dS bdO bd P< gO DS Pd GO DG SSO) BE OG LE) PG OS Og DC Bd OS OL OS OS 
<q = > fu Oo i) eH oa SG FRX KARMAHHRH +# AR 
«<< fon & [oe yn e) ca) e A £Oe# HE SeaDoo * O 
aa} Hi H al = co ica) Ee tH = > a ei * *#* OQHHOO % <i 
e Zsa SFORRH SEM PuEM 232M wSPHEM HEM P2zM AFM PH S2UHMEROUEQ #F#AX*XOS % Ei 
BH PPP FPszse- Per ODPrP OTe OOP 2arPr> OCOPFrP aPrP COR HMOPrPrP OP r Pr ra * ak * GH * BHOOUOOUOLLULOUUNDLOVUVVVDVO VVVVVVUVUVUVVVUVDYU 
OM fBN BNO BEeDHQOOSHSy VOD BVHYOHSBHVHSVSVOVSBDMNSSMOAMOAODNABASNSAMNs WH *& Ok *#ARARAARAAAANAARAARAARAAAANRAAAN AARAMAAAAAAAaAARAAAA 
+ +H + 
co) N wn © Ve) o Ve) © ive) oo) Ox + ea 
N N N ~m ~ a no w w Ne} m+ % << 
eH H a. e tH tH a. He H H He * eH 
> al a > > al > > > > ne * = 
UO * * UO %# UO Us * O UO * %O Ue *#U KOKKKHKKHHHKHHHHOKRKRHKKKHHKKHHHEHHKEHEOA * 


DHNOKAMSTNOKLDNOKAMSTMNOE DHOKAMANOLDHOKAMANOE DHOKAMTNOR DNOKNAMFANOEDHNOK NINO DHOKAMSINOELDHOKAMANOEDHAOKAMSANOKDHOKAMIANOLAHOKN 
DOF RRR PERE RE NANNNANNNANANAMM MMMM MMMM Ss Sat ATI ST TAMNMMNNNMNMNNNOOOW DO OWHOOEERERRERRODDDDDDDDDHNAAAANRANAHODO OOOO COO PrP rR KK rEK KANNAN 
REE RRRRRRARERARREREREEEEERE REESE EERE EREREAEEAREEREEREEEERERECRARREEEEEARREREALEEERE RODD ODDDDDDDDODDODDMODMDMOMOWAD 


oO oO © wn wo io) >] i] 
=z =z =z O oO 4 —s za 
- - Oo rO ocm cm +1 tie acm act cm ce =) ON rn 30] ~ i] oO © 
>) © oOo oN Ono AW Ovo Ow lea e! OVO Oo a aA a 4 ic] => =z i 
© oO Oo Or © hy iy Fes Fey Gay Fog Fes Fea Pay Fea Pas Fey Fey Fe oS Ww wn m ~ Oo i] oS 
io) fm) Oo oo ore -o | oak ol rr -— -- beh ol = U U <3) jc | 4 => = 
oO ~m ~ w Ww oO fo] >) 
a 9 +0 oO wvro steer fH ON NM Oo twSs own ©& @O <™ So > is ic U UO tr 3 za 
wn ALN wm LOL Ona OM ac aS \O et oe CO iat «GG >) oO Ww Ww N N N N N 
Fry Fa ey Fey Fe By BmA O&O ha faa A Oo kA aA GO RA mA So =z =) A A A A A A 
- -- r- =< eee No oe Sah oat N fe ee N fe -<— (o) ioe) Oo n N N N N N 
ce] U W ea] is >} <> i) 
FN O2FFO ONOERO Ry COOOMK0 DOOD DODrOooO DOM DOOC.O DOM DBAS N DODMOSAHOCTDHOODHOSOLH KODHKLOWDNKLODNNOOM 
NE NANOS NONNE OU NANMO NNN ANNNSFO NNT NNT O NNO NNO 1S) FOtTMODWQDOWONSCOFUNSCTU KAO~PUNSErLULUSCErUaACoM 
oo OoFTo oCOCoOsro ODOoDmD DOO DBDOOrad DOG WOOD WBOO WOO joe) SOOOMNNOCOEMOOrrocortroortr coos oo0oerO00os000 
te asso sOossarel StDOMO DOM DOMPTO DOM DBDOMO DODOMNM DAM \o DOO MAODDOADDSANSOSOVUGSGSOOVYN COQOVcToToVTooVuceoea 


NAODONSFOMONASODONEZONSO DHEOUNWOODEOUSTOODANTSO 
DnNnNN Geeta MOOQOMOYVUOVUAQ AAO OAPAWwhAmOOO 
OODDODSOOSOOSSOSSOSOSOOND OOcccocce°ce°°o rere 
NANNANNANNNANNNAANNANNANANA NANNNANAANANNANAAN 
OCOOGCOSSSSOOSOSOSOSOSOOSOSO GCOQoOCOooCeOooO000OoO 
DODOOSCOOSOOSOSOSOSOOSOSONO OOoCqcoceTcoeo coo C00°O 


F 
i 
F 
F 
F 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
00208E 
00208E 


Ooo c900 FCO0O00°0OO OGOOOO0 9000 O9O000 200 O00O0 coo 20° 


Mah Aad ak Se A A A OS RD? as SP a a as 8 ae a a ts a ee a 


O38F3 - 2ND AUTO CONFIGURATION OVERLAY P/N=8327419 EC=755404 PAGE 05 O38F3 - 2ND AUTO CONFIGURATION OVERLAY P/N=8327419 EC=755404 PAGE O5A 
LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
038 =O OR OR OR tio iri CR rk I i kkk I IO II RII ak 1053 * INPUT - SEE CTEO4Y INPUT 

00227C 0000 939 CDVRA DC A (¥-* RETURN ADDRESS 1054 * 
Q00227E 0000 940 CDVRI DC X'0000' SAVE AREA FOR R1 00235E 4040 1055 CTEO4 DC 1c?! ‘ 16 WORDS 
OU 1 OOO OR OR ORI GIO I IGOR I Rm OR Rk rok tok taki ikotk ak 002360 40404 0404040K0K04K 1056 CTEOS DC 15c! ' 16 WORDS 
942 * PROGRAM START O0237E 00 1057 CTEO6 DC X'0O0! 
943 * TEST FOR WOODPECKER 1058 * 
OU4 OOO RO ok ok alo ORR loko OR Rio lok igi kkk Rk i gk tok kook tek toate kok 1059 7 IORI IORI IR RII OI IR IOI ICICI II IR IO Io I IOI OK ii ik 
002280 €6FOD 227C 945 CDEVT MVW R7,CDVRA SAVE RETURN ADDRESS 1060 *DEVICE DEPENDENT DATA TABLE 
002284 690D 227E 946 MVW R1,CDVR1 SAVE R1 1061 7 OI III IIR IIR IOI III I I IO II II HO 
O47 * R6 = DEVICE READ ID OO0O237F 01 1062 DATO DC X'QO1! 
002288 4224 2084 948 MVA DNTAB-FORTN,R2 ADDRESS OF DEVICE TYPE TABLE 002380 OD 1063 DATOD DC X'OD! 
00228C 49 DET1I5 Eou * 002381 3D 1064 DAT3D DC X'3D! 
00228C Q20F 950 ABI FORTN,R2 INCREMENT TO NEXT ENTRY 002382 40 1065 DAT4O DC X'4o! 
00228E 408F 0000 951 CWI ZERO END OF TABLE 002383 90 1066 DATSO DC X'908 
002292 100F 952 JE DET17 J YES TEST OTHERS WITH NO READID 002384 A2 1067 DATA2 DC X'A2'* 
953 * R6 = PASSED DEVICE READ ID 002385 A3 1068 DATA3 DC X'A3! 
002294 76E4 954 MVW R6,R87 002386 AA 1069 DATAA DC X'AA! 
002296 6F4A 0002 955 RBTW RZ, TWO) R7 MASK OUT UNUSED BITS 002387 B2 1070 DATB2 DC X'B2! 
002294 CFA4 0000 956 CW R2,ZER {,R7 DOES ID MATCH 002388 BA 1071 DATBA DC X'BA? 
OO0229E 18F6 957 JNE DETHS BR/TRY NEXT ENTRY 002389 CA 1072 DATCA DC X'CA! 
0022A0 958 DET16 EOU * 1073 2 doo iockok dig ag a aki dk tok stoke tok tok 
0022A0 OFO8 959 MVBI EIGHT,R7 LENGTH OF DEVICE NAME FIELD 1074 ALIGN WORD 
O0O22A2 46AU 0006 960 MVA (R2 SIX) ,R6 START ADDRESS OF LABEL 1076 ORR I OIG OR I GR I IO ROR IR RIG SOK a kkk ic i 
OO022A6 4124 IDD4 961 "MVA DVE1,R1 WHERE TO PUT IT 1077 * TERN ROUTINE AUTOMATIC 
OO22AA 2E24 962 MVFN R6) , (R1 MOVE THE DEVICE NAME 1078 =o OC OO a KR OR kok iio ig ok i ie tok icici tok lok kok ick ak ie 
OO0O22AC 6E48 0004 963 MV (FS ESdR} pRE DEVICE TYPE INTO R6 Q00238A 1079 TERN EQU * 
0022B0 501C 964 J DET? 1 J TO RETURN 00238A 6B08 (ADFA 1080 MVW CTABA,R3 TABLE START 
965 * TEST FOR OTHERS WITH NO READID 00238E 0310 1081 DEC25 ABI X'10',R3 1ST OR NEXT ENTRY 
Q0022B2 $66 DET17 EQU * 002390 CB24 1E06 1082 CW CTABF,R3 LAST TABLE ENTRY 
OO022B2 7524 967 NVW R5,R1 CK FOR A PASSED DEVICE TYPE 002394 1D21 1083 JGT CUCKO J IF FINISHED WITH LAST ENTRY 
0O022B4 1012 968 JZ DET20 J NO DEVICE TYPE PASSED 002396 C2E0O OOOF 1084 MVB A fo R2 R2 = READID 2ND BYTE 
002286 Q224 224A 969 MVA DVTNA-TEN, R2 ADDRESS OF DEVICE TYPE TABLE 00239A F2AA 1085 CBI enhey 5 IS THIS A DUTCHESS W/OFIXED 
QOOQ22BA 970 DET18 Fou * 00239C 1009 1086 JE DEC27 IF YES, BRANCH 
OO22BA O20A 971 ABT TEN,R2 INCREMENT TO NEXT ENTRY 00239E F2BA 1087 CBI X*BAt,R2 Is THIS A DUTCHES W/FIXED HEADS 
0022BC 408F 0000 972 CWI ZEPO (R2) END OF TABLE 0023A0 100B 1088 JE DEC28 IF YES, BRANCH 
Q0022C0 100C 973 JE DET26 J YES 0023A2 F2CA 1089 CBI X'CA't,R Ts THIS A DUTCHESS 
974 * R5 = PASSED DEVICE TYPE OO0O23A4 100D 1090 JE DEC29 IF YES, BRA 
0022C2 CSA 0001 975 CB (R2,ONE) ,R5 DOES ID MATCH Q0023A6 F2A2 1091 CBI X'A2!*,R2 Ts THIT§ vty W/O FIXED HEADS 
0022C6 18F9 976 JNE DET18 J WO 0023A8 100F 1092 JE DEC30 IF YES BRANC 
0022C8 977 DET19 EQU * OO023AA F2B2 1093 CBI X'B2!',R2 TS THIS VIL W/FIXED HEADS? 
0022C8 OQOFO8 978 MVBI EIGHT,R7 LENGTH OF DEVICE NAME FIELD OO023AC 1011 1094 JE DEC31 IF YES, BRANCH 
O0022CA 45A4 0002 979 MVA (RZ, THO) , RS START ADDRESS OF LABEL QOO23AE 50EF 1095 J DEC25 CONTINUE LOOP 
0022CE 4124 IDD4 980 MVA DVT1,R1 WHERE TO PUT IT 1096 * 
Q0022D2 2D24 981 MVFN R5) , (R1 MOVE THE LABEL 0023B0 80E8 2386 0005 1097 DEC27 MVB DATAA, (R3,5) MOVE "AA* INTO BYTE 5 
0022D4 6E48 OO04 982 MVW R2, FOUR 7 R6 DEVICE TYPE INTO R6 0023B6 50EB 1998 J DEC25 
0022D8 5008 983 J DET? 1 0023B8 80E8 2388 0005 1099 DEC28 MVB DATBA, (R3,5) MOVE 'BAt INTO BYTE 5 
OO22DA 984 DET20 EQU * DEVICE UNKNOWN OO023BE 50E7 1100 J DEC25 
OO022DA OFO8 985 MVBI EIGHT, R7 LENGTH OF DEVICE NAME FIELD 0023C0 80E8 2389 0005 1101 DEC29 MVB DATCA, (R3,5) MOVE ‘CA INTO BYTE 5 
0022DC 4524 2274 986 MVA DVTUN,RS5 START ADDRESS OF LABEL 0023C6 50E3 1102 J DEC25 
Q0O022FO 4124 I1DD4 987 MVA CDVT1,R1 WHERE TO PUT IT 0023C8 80E8 2364 0005 1103 DEC30 MVB DATA2, (R3,5) MOVE 'A2* INTO BYTE 5 
0022E4 2D24 988 MVFN {RO) 7 (81) MOVE THE LABEL 0023CE 5SODF 1104 J DEC25 
Q0022E5 ODOO 989 MVBI ERO ,R5 RESET R5 0023D0 80E8 2387 0005 1105 DEC31 MVB DATB2, (R3,5) MOVE 'B2' INTO BYTE 5 
Q0Q22E8 75cC4 990 MVW R5,R6 RESET R6 0023D6 50DB 1106 J DEC25 
OO22EFA 991 DET21 EOU x V1.0 8 A A RR I I RR RR RR RR a RR eo 
O0022FA 6908 227E 992 MVW CDVR 1 (Rt RESTORE R1 1109 * TIMER FEATURE(ALSO KNOWN AS CUCKOO) 2 ENTRIES REQUIRED PER FEAT. 
OO22EE 6812 227C 993 B CDVRA RETOR 1110 *FIRST ENTRY SHOULD HAVE CHAIN BIT ON,SECOND ENTRY SHOULD SHUT IT 
OO *kREREKEKAK END OF CDEVT PROCEDURE %®®RR RHR ERK KK RICK SKK 1111 FO FORO IG IGG IGG RG IGG Rati Ei i OR RIO IIR IG ROK Fak a RG ak 
996 CI RI lo tole do a dtd kk kk kkk dk tok kk dk 0023D8 1112 CUCKO EOU *x 
997 * CONSTANTS FOR OTHER THAN TP 0023D8 6B08 1DFA 1113 nYW CTABA,R3 ADDRESS OF CONFIG TABLE 
GQ GK HK a he he he oe 2 fe he 2 ae he af 2 hc i eK a Re a ie aie a 2c He ee ee He I i ee ee Re Fe a i KK 0023Dc 0310 1114 CUCKU ABI X'10',R3 ADDRESS OF 1ST OR NEXT ENTRY 
0022F2 00 999 XLATR DC X'Q0" RESPONSE TO MESG 0023DE CB24 1506 1115 CW CTABF,R3 CK_FOR LAST ENTRY 
0022F3 00 1000 FLOAT DC x'oo?t RESPONSE TO MESH 0023E2 1D08 1116 JGT KITE J IF FINISHED LAST ENTRY 
1001 ALIGN WORD 0023E4 80EB 1IDAF 0001 1117 CB CDT50, (83,1) 
1002 230 a OR ao J lok kk di kk tek ok ok ik kk 0023EA 1001 1118 JF CUKOO J IF CUCKOO ENTRY FOUND 
1003 * SORT CONSTANTS 0023EC 50F7 1119 J CUCKU 
TOO te ee ae he he ee he ee ae a a 2 ee ee eK Re Ae ee ee eH Fe Ae ee a eee 2 ee ee Fe a ke OO023EE uB51 1120 CUKOO TBTS R3 aes SET CHAIN BIT 
OO022F4 0000 1005 NXTEN DC X'0000! 0023FO0 0310 1121 ABI CELL 3 SKIP NEXT ENTRY 
0022F6 0000 1006 CTRAD DC X'0000! 0023F2 50F4 1122 J CUCKU CONTINUE SCANNING ENTRIES 
0022F8 OO000 1007 CTBSC DC x'ooo0or 1124 3 OR RII lI IIR RIC GG am i ga GR tok i ik ae ek 
OO022FA A000 1008 ABLEZ DC X'AOQOO! 1125 * KITE MAIN ROUTINE 
0022FC 0000 1009 AVAIL Dc Xx*'0000' THIS ENTRY AVAILABLE 1126 A OR ORR IIR OR I IR GOR III IR RIOR I RR Ik 
1.010 2 AR RR a Re Re aR oe HH a I RO I RI RR Ro a RK 1127 ****** AUTOMATIC CONFIG FOR KITE ****** 
1011 * MESSAGES O0023F4 1128 KITE cou * 
1012 GORI I lg I AI I I a dak kk ok cok 0023F4 6908 IDFA 1129 MYVW CTABA-R1 ADDRESS TABLE START 
QO22FE 382D 1013 DC X'*382D! 0023F8 7921 0010 1130 KITEN AWI X?0016',R1 INCREMENT TO 1ST OR NEXT ENTRY 
002300 Cé6D3D6CITE3C9D5C74 1014 MESH DC C* FLOATING POINT? OO=NO, O1=YES'* 0023FC C924 1E06 1131 CW CTABF,Ri R1 = ADDRESS OF TABLE ENTRY 
00231D 00 1015 DC X'OO! 002400 6D01 27E0 1132 BGT KOEMI B IF PAST LAST ENTRY 
1016 AO BO I AOI OR CCR a ic kk doko tee 002404 C260 0001 1133 KITES MVB {Ri 1) ,R2 R2 = DEVICE TYPE 
1047 * MESSAGE CONTROL BLOCKS 002408 F2A8 1134 CBI age k2 
1018 [OA II IGOR IGG I og OR OO IO IO OR OI a ik da ok doko 00240A 1007 1135 JE KFOND FOUND A KITE 
. 1019 ALIGN WORD OO0240C F2A9 1136 CBI X*A9',R2 
0Q023TE O0CO 1020 DC Xx*'00CcO! OO240E 1005 1137 JE KFOND FOUND A KITE 
002320 2300 1021 MHDB DC A took 002410 F2B0 1138 CBI X*BO',R2 
002322 22F3 1022 DC A (FLOAT) 002412 1003 1139 JE KFOND FOUND A KITE 
002324 0001 1023 DC A (1 002414 F2B4 1140 CBI X' BAT, R2 
002326 0001 1024 DC 1 002416 1001 1141 JE KFOND FOUND A KITE 
1025 ORR RR ai ROI GR RI I I RO OR IO RK I RR a a RR Ko ROR IO CK 002418 SOEF 1142 J KITEN J CONTINUE SEARCH 
1026 * CONTROL BLOCK OUTIN 1143 * FOUND A KITE ENTRY 
002328 d00Cc0 1027 DC xX'ooco! OO241A 1144 KFOND EQU * 
Q0Q0232A 2334 1028 OEMOU DC A (OEMOU @ OUTPUT 1145 * SEE IF ALREADY PROCESSED THIS DEVICE ADDRESS 
00232C 2348 1029 DC A (OEMIN @® INPUT O0241A C340 1146 MVB AR RS R3 = DEVICE ADDRESS 
00232E 0001 1030 DC A(1 00241C 3341 1147 SLL rR 
002330 0001 1031 DC A(1 OO2Z41E 3342 1148 SRL 8,R3 
1032 * OUTPUT 002420 CB24 1DDC 1149 CW KEKDA,R3 
002332 382B 1033 DC X'382Bt 002424 15E9 1150 JLE KITEN J THIS DEVICE ADDRESS HAS BEEN PROCESSED 
002334 D6C5D4UCS6F4OFOFOT 1024 OEMOU DC C'OEMI? OO=NO, O1=YES'! 1151 * A 1ST KITE ENTRY FOUND 
002347 00 1035 DC X'OO? 002426 690D IDDE 1152 MVW R1,KAEA SAVE KITE ATTACHMENT ENTRY ADDRESS 
1036 * INPUT O0O242A 8108 1DE3 1153 MVB (Rl) KaDR2 SAVE KITE ATTACHMENT DEVICE ADDRESS 
1037 ALIGN WORD 00242E 8828 IDE2 1DE6 1154 MVW ADA, KADAT i Js " " " 
Q02348 00 1038 OEMIN DC xX'oo? OEMI ANSWER 1155 * ZERO 6uT KITE BASIC ENTRY 
002349 00 10393 DC Xx'oo? 002434 4224 25FC 1156 MVA KEB2,R2 MOVE TO ADDRESS 
1040 * 002438 3382 1157? SRL 16,R3 WHAT TO MOVE = 0 
1041 * CONTROL BLOCK OUTIN OO243A 4724 ODODE 1158 MVWI 14,R7 # BYTES TO MOVE 
1042 ALIGN WORD OO0243E 2B4C 1159 FFN R3 pe) ZERO IT 
O00234A 0080 1043 DC x'0080! 002440 8028 1DB1 25FB 1160 NVB CDTA4 , KEDT SET DEVICE TYPE TO 'A4* KITE ATTACHMENT 
00234C 2356 1044 CTD20 DC A(CTD21 OUTPUT 002446 4224 25FD 1161 MVA KEB3,R2 
O00234E 235E 1045 DC A(CTEO4 INPUT OO244A 4020 IDDO 0000 1162 MV WI 0,CHENT SET CHAEN COUNT TO O 
002350 0001 1046 DC A 1} LENGTH OF INPUT 1163 * 
002352 0001 1047 DC A (1 CONVERT TO HEX 002450 cCF25 260A 1164 MVWZ FISTDI,R7 ZERO 1Sf DI FLAG 
1048 * OUTPUT 002454 CF25 260C 11€5 MVWZ FISTDO,R7 ZERO 1ST DO FLAG 
002354 3839 1049 DC X'3839! OUTPUT 002458 8108 25FA 1166 MVB R1 ,KEDA DEVICE STARTING ADDRESS 
002356 Ci1C4HCHDIOC5SE2ZE2 1050 CTD21 DC C'ADDRESS!? 00245C 890C 1D8E 1167 MVW R1) ,ADEVA* SET DEVICE ADD & TYPE FOR TERM TO DCP 
00235D 00 ee eee oo. 002460 690D 1DBA tice 2 MVW R1, ISAV SAVE R1 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
002464 6F03 2620 1170 BAL READSTAT,R7 GO READ STATUS 002596 6F03 1EFA 1284 BAL CSRCH,R7 SEARCH TABLE FOR NEXT ADDRESS IN DOMAIN 
1171 * 00259A 6FO08 1DCO 1285 MVW CTSEF, wR7 
002468 6908 1IDBA 1172 MVW RISAV,R1 RESTORE R1 00259E 10ED 1286 JZ KFNE J ADDRESS NOT FOUND. FIND NEXT ONE. 
00246C C725 1DC4 1173 MVBZ RSNOK, 7R7 1287 * DEVICE ENTRY FOUND 
002470 18C3 1174 JNZ KITEN J COULDN'T READ STATUS ON THAT ENTRY 0025A0 6908 1IDBE 1288 MVW CTSEA,R1 R1 = ADDRESS OF ENTRY 
1175 * STATUS READ SUCCESSFULLY OO25A4 6802 24A2 1289 B KLOOP 
002472 4524 25FE 1176 MVA KEBY,RS5 R5= ADDRESS OF KITE ENTRY perte 4 1290 RR EI III OR RIOR Jo a ORR ko tok ok ae ak 
002476 4624 26A4 1177 MVA IDCBW2, R6 Rea ADDRESS OF STATUS WO 0025A8 1291 KNOT EQU * 
OO247A 4EO5 1178 KTF8 fTBT R6 ,5) TEST FOR 8 ADDRESSES 1292 * DEVICE IN DOMAIN OF KITE ATTACHMENT NOT A KITE. KITE NUST END. 
00247C 1004 1179 JOFF FG 1293 x RR IE ORR I III I IR I IR Rk kk ok 
OO2Z4U7E 4424 0008 1180 MVWI 8,R4 COVERS 8 ADDRESSES 0025A8 1294 KDSR EQU * 
002482 4D45 1181 TBTS R55) SET BIT 1295 * LAST ENTRY OF DONBIN CHECKED. 
002484 5003 1182 J DIMB 1296 RRR RAH EK III II II IOI I Fak i sk akc ak ake ak ake ae 
002486 1183 KTF4 EQU * 0025A8 8828 1IDE6 1DDC 1297 MVW KADAT,KLKDA SAVE DEVICE @ OF LAST KITE DEVICE PROCESED 
1184 * TBI (R6 ,6) TEST FOR 4 ADDRESSES 1298 * IF IN’AN AI CHAIN, RESET LAST CHAIN BIT. 
1185 * JOFF 8 OR 4 ADDRESSES ONLY. IT MUST BE ON. OO25AE CF25 1DE8 1299 MVWZ KAIC,R7 fEST & RESET AI CHAIN FLAG. 
002486 4424 0004 1186 MVWI 4 R4 COVERS 4 ADDRESSES 0025B2 1005 1300 JZ KABE3 
OO248A 4D46 1187 TBTS (R5 ,6) SET BIT 1301 * WAS ak 4 CHAIN, RESET CHAIN BIT IN LAST ENTRY. 
1188 * 0025B4 6F08 1DEA 1302 MVW Ae 
00248C 6COD 1DEQO 1189 KDIMNB MVW R4,KDOMA SAVE ATTACHMENT DOMAIN SIZE 0025B8 4F91 1303 cee Ane oe RESET LAST CHAIN BIT IN SEQUENCE. 
002490 6F08 1DE2 1190 MVW KADA,R7 0025BA CF25 1DDO 1304 MY RESET CHAIN COUNT. 
002494 74EB 1191 AW R17 1505 1 ee eee aaa ee eee seu eeaeeeaeeeeeneeeeeeeeens 
002496 6F0D 1DE4 1192 MVW R7, KADAL 1 ADDRESS BEYOND DOMAIN OF ATTACHMENT 1306 * ADD BASIC KITE ENTRY TO CONFIGURATION TABLE FOR CONTROLLER. 
OO249A 4D47 1193 TBTS r5,7 DIAG INT MASK A 1307 2A GOR IGG ICA IGOR IG IGG TG IGG IGG IOI IO IR I RO IGG GK a kak ak 
Q0O0249C 4EO4 1194 TBT R6 i} TEST PARITY CK/GEN 0025BE 1308 KABE3 EQU * 
OO249E 1001 1195 JOFF LOOP J NOT SELECTED 0025BE C730 1DFC 1309 MVB CTABU* ,R7 
OO24HA0 4D44 1196 TBTS (R5,4) PARITY CK/GEN SELECTED 0025C2 3741 1310 SLL eee 
1197 * 0025C4 3742 1311 SRL 8 
1198 * DO FOR # ADDRESSES IN DOMAIN OF THIS KITE CONTROLLER 0025C6 CF24 1E08 1312 CW CONNE, R7 gaat FOR ROOM IN TABLE 
002482 806B 1DB2 0001 1199 KLOOP CB CDTA8, (R1, 1) CK FOR AT (DT = O0O025CA 1405 1313 JLT KABE2- B IF TABLE NOT FULL 
OO24A8 181E 1200 JNE KCKAO 1314 * CONFIGURATION TABLE IS FULL 
1201 * AI DEVICE FOUND 0025CC 4724 1E1C 1315 MVA CIM8,R7 
1202 * SET AI CHAIN FLAG 0025D0 6000 1316 Svc OUT PRINT CONFIG TABLE FULL 
OO24AA 690D 1DEA 1203 MVW R1,KAICE SAVE ADDRESS OF LAST AI CHAINED ENTRY 0025D2 6802 27E0 1317 B KOEMI 
OO24HAE 6F08 1DE8 1204 MVW {C,R7 1318 * ROOM IN TABLE FOR MORE ENTRIES 
Q0O24B2 1004 1205 JZ KLOO2 J NOT ALREADY IN AN ATI CHAIN 1319 * ENTER NEW ENTRY 
OO24B4 402F 1DD0O 0007 1206 CWI 7,CHCNT CK FOR 7 CHAINS IN A ROW 0025D6 1320 KABE2 EQU 
OO24BA 1C08 1207 JGE KLOO4 0025D6 C230 1DFC 1321 MVB CTABU*, R2 # ENTRIES IN TABLE 
0024BC 4020 1DE8 0001 1208 KLOO2 MVWI 1,KAIC SET IN AI CHAIN FLAG O0O25DA 0201 1322 ABI R2 INCRENENT # ENTRIES 
0024C2 4951 1209 TBTS (hI 17 SET CHAIN BIT IN THIS AI ENTRY 0025DC C238 1DFC 1323 MVB Roe CTABU* STORE 
O024C4 4029 1DDO 0001 1210 AWT cicn INC CHAIN COUNT OO25E0 EA25 1DF6 1324 MW cTLEL, R2 X 16 = DELTA INTO TABLE 
OO2Z4CA 5002 1211 J KLOO6 OO25E4 6A0E 1DFA 1325 AW CTABA,R2 START ADDRESS OF NEW ENTRY IN TABLE 
1212 * DO NOT SET CHAIN BIT, 8TH IN A ROW. 1326 * R2 = MOVE TO DRE 
O024CC CF25 1DD0 1213 KLOO4 MVWZ CHCNT,R7 RESET CHAIN COUNT 0025E8 4324 25FA 1327 MVA KENT, R3 R3 = MOVE FROM ADDRESS - KITE ENTRY 
O0O024D0 6F08 1DE8 1214 KLOO6 MVW KAIC "fh OO25EC 6F08 1DF6 1328 VW CTLEL, RD R7 = # BYTES TO MOVE 
OO24D4 10F3 1215 JZ KLOO2 J NOT ALREADY IN A CHAIN 0025FO 2B44 1229 MVFN (23). 2) MOVE NEW ENTRY INTO CONFIG TABLE 
1216 1330 Kkhekase eked ca ekane IC II I IOIC I IO R GC i ak i aR fake ie tak ok ake 
Q0024D6 4O6F ODODE 8038 1217 CWI teee ee 1331 * END OF ADD BASIC KITE 
0024DC 184R 1218 JNE KDWF 3 NO ACTION NEEDED FOR BASIC AI 1332 ARR RI II III ICR a a a ik 
1219 * AI S.S. MPXR QO025F2 6908 IDDE 1333 MVW KAEA,R1 R1 = ADDRESS OF LAST ATTACHMENT ENTRY 
OO24UDE 4060 0004 0001 1220 MVWI X*0001", (R1,4) SET AI S.S. MPXR BIT 0025F6 6802 23F8 1334 B ITEN CONTINUE SEARCH FOR KITE ENTRIES 
OO24E4 5SO4A 1221 KDWF V3B35 RR RT RR IO RIOR RO I OR I IO I 
1222 * V3 37 RE OR AIO RR RI II OR OR ICR II OR doef ie tak cok 
002456 1223 KCKAO EQU * 1338 * KITE BASIC ENTRY 
1224 AI WAS NOT FOUND. SEE IF IN AN AI CHAIN. T3399 RAR RR OR RO ROR IR RR IR IOI III IR aoe 
Q0O024E6 CF25 1DE8 1225 MVWZ KAIC,R? TEST AND RESET AI CHAIN FLAG OO25FA 1340 KENT EQU * KITE BASIC ENTRY - 16 BYTES 
OO24EA 1005 1226 JZ KCKA QO25FA 00 1341 KEDA DC x'oo? DEVICE ADDRESS 
1227 * WAS IN A CHAIN. RESET CHAIN BIT IN LAST ENTRY. Q0O025FB 00 1342 KEDT DC X'QO! DEVICE TYPE 
OO24EC 6F08 IDEA 1228 MVW KAICE,R7 0025FC 00 1343 KEB2 DC X*OO! CONTROL 
OO24FO 4F9I1 1229 TBTR R7 17) RESET LAST CHAIN BIT IN SEQUENCE. 0O025FD 00 1344 KEB3 DC x'00! 
0024F2 CF25 1DD0 1230 MVWZ HC fir RESET CHAIN COUNT. Q0025FE 00 1345 KEB4 DC X'QO! 
1231 * OO25FF 00 1346 KEBS DC X*00O! 
OO24F6 806B 1DB3 0001 1232 KCKA2 CB CDTAY, (R1,1) CK FOR AO (DT = AY) 002600 00 1347 KEB6 DC X'oo' 1ST DI ADDRESS 
OO24FC 1801 1233 JNE KCKDI 002601 00 1348 KEB7 DC X'Qot 'O1" IF DI PRESENT 
1234 * AO DEVICE FOUND 002602 00 1349 KEB8 DC xX*O00* 1ST DO ADDRESS 
1235 * NO ACTION NEEDED 002603 00 1350 KEB9 DC X'Qo! 'O1' IF DO PRESENT 
OO24FE 503D 1236 J KDWF 002604 00 1351 KEBA DC X'QO! 
1237 * 002605 00 1352 KEBB DC X'OQ? 
002500 806B 1DB4 0001 123@ KCKDI CB CDTBO, (R1, 1) CK FOR DI (DT = BO) 002606 00 1353 KEBC DC x'00!° 
002506 1822 1239 JNE KCKDO 002607 00 1354 KEBD C X*'QO! 
1240 * DI DEVICE FOUND 002608 00 1355 KEID1 DC X*O0O? READ ID 
002508 406F OOOE 8008 1241 CWI X*'*8008!, (R1, 14) 002609 00 1356 KEID2 DC X'OO! READ ID 
00250E 1807 1242 JNE KCKD2 P35 7 a ECR RI IR IRR IR II III A CIO IO 
1243 * DI ISOLATED 00260A 0000 1358 FISTDI DC A (*-* 1ST DI FLAG 
002510 8068 1DA8 0003 1244 MVB CTCO8, (R1,3 00260C 0000 1359 FISTDO DC A (*-* 1ST DO FLAG 
002516 8068 1DA8 0005 1245 MVB CTCOS8, (R1,5 V3 G0 A RR RR RR RR RR RO OR OR OR RR IORI SRR RO 
00251C 500A 1246 J KCKD3 1362 3 OR RI III IIR IOI RII III III II RG ok 
1247 * 1363 * CYCLE STEAL STATUS WORD 
00251E 406F OOOE 8010 1248 KCKD2 CWI X*8010', (R1,14) 00260E 0000 1364 STATUS DC A *¥) CYCLE STEAL STATUS 
002524 1806 1249 JNE KCKD3 DO NOT KNOW TYPE 1365 RRRK KEKE KKK KKK 5d VERERARLERDTAOS TEES ERE EEO ET ET OD HERR RONEENORSEEKAS 
1250 * DI NON ISOLATED 1367 4 OR to I II IO IO OR IOI I OR IGOR IOI IC aca a 
002526 8068 1DA9 0003 1251 MVB CTC10, s3 1368 * RESIDUAL STATUS BLOCK (RSB) 
00252Cc 8068 1DA9 0005 ee . uVB cTc10, Ri 75 002610 0000 oO. RSBO DC A (*¥-*) 
002532 402F 260A 0001 1254 KCKD3 CWI ee FISTDI CK 1ST DI FLAG 002612 0000 1371 RSB1 DC A (*-* 
002538 1020 1255 JE KD 1372 7 OR IR OR III IOI II IO IGOR IOI OR tok 
1256 * 1S FOUND. ENTER ADDRESS 1374 RIOR RR RIOR IIR RII III IORI IOI IIR IS OR OR i Ra tok i 
00253A 4020 260A 0001 1257 MVWI x100018 FISTDI SET 1ST DI FLAG 1375 * MISC PROGRAM PARAMETERS 
002540 8028 1DA1 2601 1258 MVB CTC01,KEB7 SET DI PRESENT 1376 2 ORR IIR IIR III IOI III IOI II II IR ok 
002546 8108 2600 1259 MVB skye 1 EEBe ADDRESS 1ST DI 1377 ALIGN WORD 
O00254A 5017 1260 J 002614 0000 1378 ASVC DC tree ADDRESS OF SVC BEFORE INTERRUPT ERROR 
1261 * 002616 0064 1379 SPEED SPEED FOR TIMER 
00254C 806B 1DB5 0001 1262 KCKDO CB CDTB4, (R1,1) CK FOR DO (DT = B& 1380 DEC EESMSS SHMUEL METS CRREERONEEA ROC Lea scent er cau ede kes eacdaissesenkies 
002552 182A 1263 JNE KNOT J NOT A KITE DEVIC 1381 * PROGRAM FLAGS AND SWITCHES 
1264 * DO DEVICE FOUND 1382 2 RR RR RIOR III OR IO III IORI I IIR I II OI tot 
002554 8068 1DAC 0003 1265 MVB CTC18, (R1,3 002618 0000 1383 INTSW DC A (*-* INTERRUPT SWITCH 
00255A 8068 1DAC 0005 1266 MVB CTC18, (R1,9 00261A 0000 1384 CSSBYPAS DC A (*¥-* BYPASS READ OF CYCLE STEAL STATUS 
002560 402F 260C 0001 1267 CWI X'000 4 »FAS DO CK 1ST DO FLAG 00261C 0000 1385 TERMOK DC A (*-* TERMINATE OK, DA/TYPE CORRECT 
002566 1009 1268 JE KDWF 00261E 0000 1386 FLAGO DC X*000 ‘FIRST TIME THRU* FLAG 
1269 * 1ST DO FOUND. ENTER ADDRESS 1387 OE GA EEG EGE GEE E CORIO OOS EUAGE RGIS IER IAC ASCE AGI IIE AG 
002568 4020 260C 0001 1270 MVWI X'0001',FISTDO SET 1ST DO FLAG 1389 CORR IIR IO IO IORI IIR ORR I I IOI IK 
O0O256E 8028 1DA1 2603 1271 MVB CTCO1,KEB9 SET DO PRESENT 1390 * READ STATUS SUBROUTINE 
002574 8108 2602 1272 MVB (Ri) KEBE ADDRESS 1ST DO 1391 * READ THE CYCLE STEAL STATUS WORD FROM KITE 
002578 5000 1273 J DW 1392 * NOTE; WILL TERMINATE & BEGIN AGAIN. 
1274 * 1393 2h ORR ROG IO OG IGIOIOIOII OIG IOIIGO GIO IAGI IOI GIO IK 
1275 * KITE DEVICE WAS FOUND 002620 6FOD 2698 1394 READSTAT MVW R7,RSTRA SAVE RETURN ADDRESS 
OO257A 1Z76 KDWF Fan * 002624 8038 1D9C 1DC5 1395 MVB ACLPL* ,DCPFL SAVE FLAG FROM DCP 
1277 * F NE AES ENTRY IN DOMAIN OF CONTROLLER 00262A 802C 1DAO 1D9C 1396 MVB CTCO0, ACIPL* RESET CONFIG YPL DEVICE LOAD SWITCH 
O0O257A 4029 IDE6 0001 1278 KFNE WI Stones NEXT DEVICE ADDRESS 1397 * SO WYLL RETURN ON IPL PASS 
002580 402F 1DE6 OOFF 1279 CuI ee a a 002630 4030 1D8C C001 1398 MVWI X'CO0O1' ,ADATA* SET UP FOR "DUMMY TERMINATE IN BASIC 
002586 1D10 1280 JGT KD J ALL ADDRESSES TESTED 002636 4030 1D92 1822 1399 MVWI ABEGP , ABEG2* MODIFY BRANCH ADDR 
002588 882B 1DE4 1DE6 1281 CW RADAL, KADAT 00263C 6007 1400 SVC TERM TERMINATE 
Q00258E 1C0C 1282 JGE KDSR J ALL OF DOMAIN CHECKED 1401 * EXIT THE PROGRAM HERE GO BACK TO ‘BEGIN! 
002590 8828 1DE6 1DBC 1283 MVW KADAT,CTSA 1402 * THE NEXT ENTRY TO PROGRAM WILL BE DIRECTLY TO *ENTROPTS* BECAUSE THE 
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1403 * BRANCH ADDRESS WA E ; s ' 1520 * START READ STATUS 
Dai x ei Naneoonet Ree porous Rar PO be Gee oe Ree HGgee ena 1521 ok I I io gk i ok ok lok ak kaki tak ake aie ae ate of 
1405 * FOR THE CONFIGURATION TABLE . 002712 6FOD 274C 1522 CSTAT MVW R7,BACK6 SAVE RETURN ADDRESS 
1406 * 002716 4020 269E OO00E 1523 MVWI X'OOOE',DATAWORD MODIFIER INTO CONTROL BLOCK 
TUQ7 aka ok ak i kk a a IO IO II IR AOR I IR I IO IG I AOR CK 00271C CF25 2618 1524 MVWZ INTSW,R7 RESET INTERRUPT SWITCH 
00263E 4030 1D92 1826 1408 ENTROPTS MVWI ABEGO,ABEG2* MODIFY BRANCH ADDR TO ORIGINAL IN BAS 002720 4724 269A 1525 MVA  CTRLBLOK,R7 GET PARAMETER LIST ADDRESS 
002644 802C 1DC5 1D9C 1409 MVB DCPFL,ACIPL* RESTORE FLAG IN DC 002724 4020 261A 0001 1526 MVWI 1, CSSBYPAS SET FLAG TO PREVENT CSS READ LOOP 
O0264A 4030 1D8A 0001 1410 ENTR2 MVWI 1, ARTHE* RESET ROUTINE (MAB) # AFTER TERMINATE 1527 *----------------------+ 
pO ee): eo te 1090 4) av ADEVS* ,R1 CHECK THAT ENTRY IS VALID. 00272A 600F se5e SVC __-RSTAT READ STATUS 
O IF BIT NOT ON, PRINT ERR MSG eae Sen ae eT ee nec Po, ge as ty ae 
002656 4724 1E9E 14143 MVA oun 00272C 4020 269E 274E 1530 MVA DCB1,DATAWORD PUT DCB ADDRESS AT PARAMETER LIST 
00265A 6000 1414 svc OUT. PRINT "NO CONFIG ENTRY! 002732 6812 274C 1531 B BACK6* R 
00265C CF25 261E 1415 MVWZ FLA R7 CLEAR FIRST TIME FLAG RMR EE TESS SSS COS S OCS SSCS CSCS LSS CSS SOL OTS SCS IOCC SCC LCC CSCC SSS SSC SL CS TST CS TS ST ee £7 
002660 8028 1IDA1 1pc4 1416 MVB creo ronan SET READ STATUS NOT OK FLAG V5 3G RAK KKK RE RIO IO IC OK a sok tok kk te eo ok 
002666 6812 2698 1417 B RSTRA* RETURN 1535 * RESET DEVICE 
1418 *--------------------- +--+ - — -- - ee ee + ++ 1536 * PENDING INTERRUPTS WILL BE CLEARED, PREP REMAINS THE SAME, 
Q0O0266A 1419 TOK EQU %* 1537 * DATA TERMINAL READY SIGNAL WILL Not BE DROPPED. 
1420 * MOVE DEVICE INFO FROM BASIC 1538 * 
00266A 6908 1D8E 1421 MVW ADEVA,R1 FROM ADDRESS (IN BAS tC) 002736 D 274A 1539 RSET MVW R7,BACK2 SAVE RETURN ADDRESS 
QO0266E 4224 1D7E 1422 MVA_ ODEVAD,R2 TO ADDRESS IN BND AUTO) 00273A 0 269E 274E 1540 MVA DCB1,DATAWORD 
002672 4724 OOOA 1423 MVWI TEN R7 10 BYTES 002740 G 269A 1541 MVA CTRLBLOK ,R7 GET PARAMETER LIST ADDRESS 
002676 2944 1424 MVE N sine (R2) MOVE DEVICE INFO 1542 *---------------------- 
002678 4724 276E 1425 MVA Ng B,R7 CONNECT INTERRUPT” CONTROL BLOCK Q02744 8 1543 svc RESET RESET DEVICE 
00267C 6014 1426 SVC 1544 8a ne wn nn nn nnn ere 
00267E 6F03 2736 1427 BAL RSET RESET DEVICE : 002746 274A 1545 RT K2* 
002682 6F03 266 1428 PAL PREPS. ie PREPARE DEVICE VUMEET ET CCS OSS SSS SSCS SS SCS S LOLS SLOSS CSL LSS LL CST SCS SL CSS CCC SS LS ST ete LST ST TL St ey 
002686 6F03 2712 1429 BAL CSTAT,R7 READ CYCLE STEAL STATUS OO274A 1547 BACK2 DC A (*—* RETURN ADDRESS 
00268A C720 ID7VE 1430 MVB DEVAD,R7 0O0274C 1548 BACK A (*-* START CYCLE STEAL STATUS RETURN 
00268F 3741 1431 SLL yRT 1549 RR Rk kk i ot tok ick tok dee ite otek i tk 3k a RO fa kkk tte ak ote ake ate kc ac ak 
002690 3742 1432 SRL 8 R7 R7 = DEVICE ADDRESS 1551 RRR RR RR Ro OI RR OK RI aOR kek kt a RK foot ie te fete a ate a ake 2k 3 
002692 6013 1433 SVC R{CR RELEASE INTERRUPT CONTROL BLOCK 1552 * DCB'S 
002694 6812 2698 1434 RSFIN B RSTRA* RETURN 1553 em a He i a a he a a a a He te he 2 he fe 2 fe fe ae ae a a 2k i ae a ae ote ca kc ec ak te ok ok ic a oe Rk a I PR OK IC Kf teak ic ac ok 
1635 ORO OR a kok Rok ai RO RI IRI I IO IR tO tok ea kai ie eke ok co ok 1554 ALIGN WORD 
002698 0000 1436 RSTRA DC A (#-* RETURN ADDRESS OO274E 0000 1555 DCBI DC A(*-*) CONTROL WORD 
WME TS TCLS SSS SCS SCC SSC SCCSCS SSS LCS SL SSC TSS SPP Sete See STC TTS SSCS TS SSS TSS St Ss tS 002750 0000 1556 DCBITIME DC A 0) TIMERS 
1439 tee RK Ke kd kk kk kok lok kok ikki aati kok kek tok i ea RK i 002752 0000 1557 DC A (0 NOT USED 
1440 * OIO CONTROL BLOCK - FOR DCP 002754 0000 1558 DC A (0 NOT USED 
1441 Bre ee a re te eee eee et epee pet rie 002756 2610 1559 DC A (RSBO) RESIDUAL STATUS BYTE ADDRESS (RSB) 
00269A 1D7E 1442 CTRLBLOK DC A D) 0/1 DEVICE ADDRESS POINTER 002758 0000 1560 DC A (0) CHAIN ADDRESS 
00269C 26A6 1443 DC A orocc RR) 2/3 ERROR RETURN ADDRESS 00275A 0000 1561 DCBIK DC A (*-* BYTE COUNT 
00269E 0000 1444 DATAWORD DC A 4/5 VARIABLE (USUALLY DCB ADDRESS) 00275C 0000 1562 DC A (*-* DATA ADDRESS 
0026A0 0000 1445 DC A a 6/7 VARIABLE DEPENDENT ON OP aa ae ae a a a a a al ee 
0026A2 0000 1446 LASTSVC DC A (*-* 8/9 ADDRESS OF LAST SVC 1564 ALIGN WORD 
OO26A4 1447 IDCBW2 FOU *x 2ND WORD IDCB = STATUS WORD FOR KITE 00275E 2500 1565 DCB3 Cc X*2E00! START CYCLE STEAL STATUS ONLY DCB 
0026A4 0000 1448 DEVID DC A (*-*) 10/11 SECOND WORD OF IDCB (DEVICE ID) 002760 0000 1566 DC A (0 NO 
CURSE T TTS L ESS SSCS SSCS SSCS £ SOLS SSC SLOSS SP SSS SCLC SCS OC SCOS CSC SS SCS STS Set te 2 2 2 002762 0000 1567 Dc A(O NOT USED 
1450 * NAME -— ERROR OTO CC SUBROUTINE (BEFORE INI ERRUPT) 002764 0000 1568 DC A {0 NOT USED 
1451 * PURPOSE - TO DETERMINE THE OIO CONDITION CODE RETURNED IF NOT 7 002766 0000 1569 DC A (0 NOT USED 
1452 * COME HERE ONLY IF CC NOT = 7 002768 0000 1570 DC A (O NOT US 
1453 * 00276A 0000 1571 DC A (0 BYTE COUNT 
1454 x CONDITION CODES BEFORE INTERRUPT ARE 00276C 260E 1572 DC A ATUS) STATUS WORD ADDRESS START 
1455 * = 0 NOT ATTACHE 1573 jh CHEE EE 6 ERHAEE OT SOE ee ERDASE CLARE Eee OE OEE eae ean eee 
1456 * Ge = BUSY 1575 x ok ok a OK ORO III Ri iii a loki tok ck ick tek toto teat iege ak ak 
1457 * cC = 2 BUSY AFTER RESET 1576 * INTERRUPT CONTROL BLOCK (ONLY FOR SVC CICB) 
1458 * cc = 3 COMMAND REJECT WHR TE TESS TL StS er S ToL e TST SS Te Se SS SS Pe STS SSST OSL OCCT ICS CLCe TS LCL L eT Tt eT Ss 
1459 * cc = 4 NOT USED OO276E 1578 INTCB DC A (DEVAD) DEVICE ADDRESS POINTER 
1460 * cc = 5 INTERFACE DATA CHECK 002770 1579 DC A (GINT ADDRESS OF INTERRUPT ROUTINE 
1461 * cc = 6 CONTROLLER BUSY 002772 1580 DC A (EINT ADDRESS OF ERROR INTERRUPT ROUTINE 
1462 * CC = 7 GOOD 002774 1581 X*0003 EXPECTED INTERRUPT CONDITION CODE 
V6 3 RR RR I HK KK HK ke a I tk eo a a ako ke od ee 2 fe a a ae ke fe a ke ok ate ge ac of a 2 ae 2k a ok L582 A HA HR HH HH AH I HH A I HA HH HK A I I KK ho oe tk a Ke 
0026A6 706E 1464 OIOCCERR CPLSR R3 GET INDICATORS SESS T ETS CSc eS SSS ST TC SCT SCL SCS OSS CSCS SCL LS CST STP SST OSSCSCCSCS CS CCS ST SS ST Te ee TT 
0026A8 336A 1465 SRL 13,3 EXTRACT CONDITION CODE 1585 * NAME - INTERRUPT HANDLER 
OO26AA 6BOD 2794 1466 MVW R3; OIOCC SAVE CONDITION CODE 1586 * PURPOSE - TO SAVE THE INTERRUPT ID 
1467 * R3 = OTOCC FOR CE 1587 * SAVE INTERRUPT CONDITION CODE 
OO26AE 6C08 1ID7E 1468 MVW DEVAD,R4 R4 = DA & TYPE FOR CE 1588 * SAVE LAST SVC ADDRESS 
0026B2 4724 1ED8 1469 MVA  FFO9,R7 1589 * SET INTERRUPT SWITCH 
QOO2E6B6 601A 1470 SVC HTOE 1590 * EXIT LEVEL 
0026B8 4724 1EEO 1471 MVA FF10,R7 1591 * ADDRESSES SET IN ICB "INTCB*' USED WITH SVC CICB 
0026BC 6000 1472 SVC OUT PRINT *ADDRESS=XxX! 1592 * Se - LABEL OF INTERRUPT ROUTINE 
QOO0O26BE 4724 26E0 1473 MVA CCERRHTE,R7 1593 * NT - LABEL OF ERROR INTERRUPT ROUTINE 
0026C2 601A 1474 SVC HTOE 1594 * CALLING SEQUENCE - NONE 
0026C4 4724 1E66 1475 MVA EE Oe R7 1595 * ENTERED BY SUPERVISOR FOR ALL INTERRUPTS 
0026C8 6000 1476 SVC on PRINT "OITO CC= XXxXx! 1596 * RETURN - SVC E£XIT 
OO26CA 4O02F 2794 0000 1477 Cwl OI0cc 1597 * RETURNED PARAMETER - LABEL FORMAT 
0026D0 1806 1478 JNE COERREND J 1598 * INTERRUPT SWITCH INTSW X'OTt 
1479 * cc 0 = DEVICE NOT ATTACHED 1599 2 OR OR lok IO a dak ko fo a kok 
0026D2 4724 1EBE 1480 MVA - FF06,R7 002776 1600 EINT EQU * 
0026D6 6000 1481 SVC OUT PRINT "DEVICE NOT ATTACHED! 1601 * CAME HERE IF CC = 0,1,2 
0026D8 4020 261cC 0000 1482 MVWI O.-TERMOK RESET SWITCH 1602 2 ago oR otek i tak tek fox fe etek eh as divers eerste 
0OO026DE 50DA 1483 CCERREND J RSFIN GO RETURN FROM READ STATUS SUBROUTINE 1603 * COME HERE ONLY IF INTERRUPT CC = 3 AS EXPECTED 
VU BY Ha HH A RR A HRA KK KK HK KI RK RK AO RR FO I HK KK KK CK 002776 702E 1604 GINT CPLSR R1 GET INDICATORS 
1485 * CONTROL BLOCK HTOE 002778 316A 1605 SRL 13,R1 EXTRACT CONDITION CODE 
0026E0 0002 1486 CCERRHTE DC A(2 # BYTES OO277A 690D 2796 1606 MVW R1,CC SAVE CONDITION CODE 
O0026E2 2794 1487 Dc A tOrocc FROM ADDRESS HEX) QO0277E 6FOD 2792 1607 MVW R7,1SB SAVE INTERRUPT STATUS BYTE/DEV ADDR 
OO0O26E4 1880 1488 Dc A(FFO2B TO ADDRESS ?¢EBC Ic) 002782 6E0OD 2614 1608 MVW R6,ASVC SAVE SVC ADDRESS 
TU QQ HH AR MRA HI KE HR FOR HH HR RH RR KO IIR ROR I ICR ROK ROR I RO RIOR FO RR I Fk 002786 4020 2618 0001 1609 MVWI 1,iNTSW SET INTERRUPT SWITCH 
TQ eae ae a ee ee eR A A A A A I TO I I OR I IO CIR RO A FO RRR I ACK 00278C C€720 2793 1610 MVB  ISB+1,R7 GET DEV ADDR BYTE ONLY TO R7 
1492 * NAME - OIO SUBROUTINE 002790 6006 1611 svc EXIT EXIT LEVEL 
1493 * PURPOSE - TO ISSUE ALL OIO COMMANDS 1612 HK A RK EK IR RE RO I III IO RR III III tok a tok IK 
1494 * CALLING SEQUENCE - SIX ENTRY POINTS 1614 sek a BR iO git io toiok tok ito tok ick tok 
1495 * 1 BAL PREPD,R? PREPARE DEVICE 1615 * PROGRAM STATUS INFORMATION 
1496 * 2 BAL REAID.R7 READ DEVICE ID 1616 ete eee R Tel CUR Oe eS OTE ECEES STD OLS EEE NESS VEER ESET OCTET SENT SE SES 
1497 * 4 BAL XRIO R7 START I/0 XM/RCV 002792 0000 1617 ISB DC ap eee INT STATUS ( FROM R7 AND = DA(8-15)) 
1498 * 5 BAL cstat, R7 START CYCLE STEAL 1618 * BIT 00 ATUS AVAILABLE 
1499 * STATUS 1619 * BIT 01 COMMAND REJECT 
1500 * 10) we BAL RSET RESET DEVICE 1620 * BIT 02 INCORRECT LENGTH RECORD 
1501 * RETURN RETURN TO NEXT SEQUENTIAL | INSTRUCTION 1621 * BIT 03 DCB SPECIFICATION CHECK 
1502 FEI IGOR IG CII CIOI GR ACR ACARI BBE FO ok kk tk ok tok lot kak tok took ok 1622 * BIT OG STORAGE DATA CHECK 
1503 * PREPARE Ey pie 1623 * BIT O05 INVALID STG ADDR 
OO26E6 6FOD 274A 1504 PREPD MVW K2 SAVE RETURN ADDRESS 1624 * BIT ie STG PROTECT CHECK 
OO26EA 8828 1D9E 269E 1505 MVW rite BRT AWORD PUT LVL AT PARAMETER LIST 1625 * BIT INTERFACE CHECK 
OO26FO 4724 269A 1506 MVA CTREBLOK, R7 GET PARAMETER LIST ADDRESS 1626 * BIT 08-15 DEVICE ADDRESS 
O026F4 600C 1507 SVC PREPARE DEVICE 002794 0000 1627 OIOCC DC A (*-* OIO CC BEFORE INTERRUPT 
0026F6 4020 269E 274E 1508 MVA BenA DATAWORD 002796 0000 1628 CC DC A (*-* CONDITION CODE AFTER INTERRUPT 
0026FC 6812 274A 1509 B BACK3* RETURN 1629 nO OG a ioiokoiiotokog tok kiofoioiokgitataiiogik got ik gk dakota ge kote fea 
ERRORS ELST OSL SS tS TTS STS PS PSS SSS LS TSC SSS CS EPS SS SS TST CSC CL SSS SSS SSS SSS LLL eS TS T6317 AA RK a HR RK ok kk OR RO OR JI ROR CIO IR it do do tok yok tok tok ok 
1511 * READ ID 1632 * PROCEDURE CLEAR CTEO4 
002700 6FOD 274A 1512 REAID MVW R7,BACK2 SAVE RETURN ADDRESS 1633 * PURPOSE ~ CLEAR BUFFER CTEOG 
002704 CF25 269EF 1513 MVHZ DATAWORD, R7 CLEAR MODIFIER 1634 kK RO IO a IOI IO IG III IO I OR OR IOI IR tag IIR FO git tak ak 
002708 4724 269A 1514 MVA CTRLBLOK,R7 R7=ADDRESS OIO CONTROL BLOCK FOR DCP 002798 7724 1635 CLEAR MVW R7,R1 SAVE RETURN ADDRESS 
00270cC 6009 1515 SVC RID READ DEVICE ID O00279A 3281 1636 SLL 16,82 R2 = ZERO = WHAT TO MOVE 
00270FR 6812 274A 1516 B BACK2* RETURN 00279C 4324 235E 1637 MVA CTEO4U ,R3 R3 = WHERE TO POT I 
1517 RIO IIR IO III III IOI FOR I RII SI RIO ORR Fi a i dak 0027A0 6F08 1DF6 1638 MVW CTLEL,R7 R7 = HOW MANY BYTES 
1519 Oi II IO II ROI IR III IO tI doi iii te totetode tok ok 0027A4 2A6C 1639 FFN R2, (R3) ZERO THE BUFFER 
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LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
0027A6 6822 0000 B (RI) RETURN 002888 4324 3002 1757 MVWI Toa agen # ENTRIES 
ARI ICO OOK OK KK rok tok kok kk tek tok kok kk ak dK ok 00288C E9C1 1758 MB sf 3) 68 R1 NO ENTRIES TIMES HEX 16 
* END CLEAR PROCEDURE O0288E 7921 3000 1759 AWI 13 bo. R1 LAST ENTRYIN TABLE 
pS SSS CSCS LSSCLCSSSOCSCCL OOS LSS OCC SSCS CCL CS SSS SS SST CSCS TS Se SESS ST SL TS es Ss 002892 0110 4760 ABI aon r{ START NXT AVAIL ENTRY 
PS SSCL LSS SS SS SSO CS SS CSC CC SSCS SOS SLOTS SSCS ST TSS St TT Pete TT Te eT SST LS T+ st Sf 002894 0101 1761 ABI 1 BYTE 1 
* PROCEDURE NEXTE 002896 8060 2381 1762 MVB DAE, AR) MOVES 3D TO BYTE 1 
* PURPOSE ~- ADD NEXT ENTRY TO CONFIG TABLE. 00289A C2C0 1763 MVB iii yk #ENTRIES TO R2 
* MOVE CTEO4 INTO NEXT AVAILABLE ENTRY OF CONFIG TABLE, 00289C 7A41 0001 1764 AWL INC. R2 
* INCREMENT # OF ENTRIES. ERROR MESSAGE IF NO ROOM. 0028A0 C2C8 1765 MVB 3) INCRMNTD # ENTRIES BACK TO (R3) 
* INPUT CTEO4 CONTAINS THE NEW ENTRY. 1766 Eee ero th HAH HR HK KH KH HH AK KK KEE KE REEKKKE KEKE KK 
ree set HERE ECEEB EEO EERE E EE GEC ESOT A ERATE CEA ACETATE 1768 ok ORR IR FI IOI FO IOI IR SOK IR RO FORO I RK KK I I tO KK KE KE 
AA Cc NEXTE MVW SAVE RETURN ADDRESS 1759 * OSPREY 
0027AC C130 1IDFC MVB Brkeee Rp RT = # ENTRIES USED 1770 *DAAO 4000 0000 0000 0000 0000 0000 cCOTO(BOTH DI 
0027B0 3141 SLL 8,R1 1771 *DAAO 4000 0000 0000 0000 O00 o000 COT8{(BOTH DO 
0027B2 3142 SRL 8,R1 R1 = # ENTRIES USED _ NO SIGN BITS 1772 * 
0027B4 C924 1TEO08 CW COMNE,R1 TEST FOR ROOM IN TABL 1773 *LAST DO HAS CHAIN BIT OFF 
0027B8 1404 JLT NEXT2 J TABLE IS NOT FULL 1774 * 
: * TABLE IS FULL 1775 OR OO OO IO i iO oO oI a fake fo ito itt tet 
OO27BA 4724 1TE1C MVA CTM8,R7 0028A2 1776 OSPRE EQU * 
O0O027BE 6000 SVC our ” PRINT ‘CONFIG TABLE FULL! 0O28A2 4024 3011 1777 WI X¥*'*3019',RO 
0027C0 500D J NEXT4 0028A6 C100 1778 OSCAN HVE. a ae MOVE DEVICE TYPE IN R1 
* ROOM FOR NEW ENTRY 0OO028A8 F1A0 1779 CBI "AO!, COMPARE AO R 
0027C2 7921 0001 NEXT2 AWI 1,R1 INCREMENT # OF ENTRIES OO28AA 6800 28BA 1780 BE OSPR1 YES OSPREY 
0027C6 €138 IDFC MVB R4{,CTABU* STORE # ENTRIES OO28AE 0010 1781 SCAN ABI X¥*'*10* ,RO SCANNING 
OO0O27CA E925 1DF6 MW cTLEL 71 X 16 = DELTA INTO TABLE 0028B0 7806 3FF1 1782 CWI X'3FF4¢, ALL SCANNED? 
OO27CE 690E 1DFA AW CTABL. “R1 R1= START ADDRESS OF NEW ENTRY = TO OO28B4 1C17 1783 JGE FIN YES. FINISHED 
0O027D2 4224 235E MVA CTEO4, R2 R2 = FROM LOCATION 0028B6 6802 28A6 1784 B OSCAN CONTINUE SCANNING 
0027D6 6F08 IDF6 MVW ri EL, "RT R7 = # BYTES TO MOVE OO28BA 4849 1785 OSPR! TBTS RO,9) SET CHAIN BIT ENTRY 1 
OO27DA 2A24 MVFN , (R1) MOVE NEW ENTRY INTO CONFIG TABLE OO28BC 0010 1786 ABI 6 £0 GETS TO NEXT ENTRY BYTE1 
0027DC 68C2 0000 NEXT4 B R2 RETURN OO28BE C200 1787 MVB RO) R2 MOVES TYPE INTO R2 
FOR IO IC IO IG IO OR I OR OK I lg CR kok iiokk ok tok deck fot kk 0028C0O0 F2A0 1788 CBI A { R2 COMPARES AO TO TYPE 
* END OF NEXTE PROCEDURE 0028C2 1001 1789 JE OSPR2 IF EQUAL CONTINUES 
PTeTePTSCCPSOSSSLCSCC$CTCSOCS CCS CCS LLCS SST SS SST SS SS SS Te ST PTS STS SS TS tT 0028C4 500B 1790 J OSERR TF NOT = WE HAVE AN ERROP 
PS SCS SPSS SCSSOCS CS CSS OCS SSC SSC SS SS SL SS SS CSCS CSCS SCLC SC SS SST Te Te TT eT eT Te eS 0028C6 4849 1791 OSPR2 TBTS RO,9) SET CHAIN BIT ENTRY 2 
* OEMIA MAIN ROUTINE 0028C8 0010 1792 ABI 6 RO GETS TO NEXT ENTRY BYTE1 
FIO I RO RII III IO FIO II II I kk kk kek ke otek 80 of ake ake ate oe ak OO28CA C200 1793 MVB £5) R2 MOVES TYPE INTO R2 
002750 KOEMI EQU * 0028CC F2A0 1794 CBI TA ( R2 COMPARES AO TO TYPE 
Poe PTC SCSLCCS SSCS SS TSS SL LTS SSCS OCLS CSCS SSS SS SSS LSS LS TSS TC CSS TS CCL CS SS eS TS O0O028CE 1001 1795 OSPR3 IF EQUAL CONTINUES 
* ADD BASIC OEMI ENTRIES 0028D0 5005 1796 J OSERR IF NOT = WE HAVE AN ERROR 
. SOI OR IO II ARI IOI ICICI IRR BI RI Rk Rg ak ok tk kr dk cK ok 0028D2 4849 1797 OSPR3 TBTS {0 9) SET CHAIN BIT ENTRY 3 
OO27EO 4724 232A OEMIA MVA OEMOU, RT 0028D4 0010 1798 ABI 6,k0 GETS TO LAST ENTRY BYTE1 
OO27E4 6001 SVC PRINT 'OEMI?YES=01, NO=00! '382B" 0028D6 C200 1799 MVB gp) R2 MOVES TYPE INTO R2 
Q0027E6 C720 2348 MVB OEMIN,R7 Q0028D8 F2A0 1800 CBI "A (oR COMPARES AO TO TYPE 
OO27EA 1016 JZ KOEMC NO MORE OEMI DEVICES TO ENTER OO28DA 10E9 1801 JE SCAN J OSPREY DOES HAVE 4 ENTRIES 
* ADD A BASIC OEMI ENTRY TO TABLE 0028DC 4724 1E46 1802 OSERR MVA OSPER,R7 
0027EC 6F03 2798 BAL CLEAR,R7 CLEAR CTEO4Y O0O028E0 6000 1803 svc OoUT PRINT ‘OSPREY ERROR! 
OO27FO 4724 234C MVA CTD20,R7 '3839°8 OO0O28E2 50E5 1804 J SCAN CK NEXT ENTRY 
OO27F4 6001 SVC OUTIN PRINT 'ADDRESS!', BYTE INTO CTEO4Y 1805 * 
0027F6 8028 1DBO 235F MVB CDTA3,CTEOUtONE DEVICE TYPE A3 1806 3 oo oR gC gio gioiggiok sak gogok giok doko dak eda totok ototok ok 
OO27FC 6F03 27AA BAL NEXTE,R7 ENTER ENTRY INTO CONFIG TABLE OO028E4 6812 1D8u 1808 FIN B OLYRA* RETURN TO BASIC 
* SORT & aaTae CONFIGURATION TABLE 1809 3 OI RI KIO iC foto iki lekuictotokokk ated sk fete tok te tote sk ate ake ik 
002800 882C 1D88 1D9A MVW OLYRA, AOLRA* SAVE OVERLAY RETURN @ IN BASIC 01836 001D70 4810 END BEGIN END OF PROGRAM 
002806 4030 1D96 2810 MVA OEMI5 “ADSAR* SET RETURN ADDRESS IN BASIC O182E 18171 [ORO RO IO OO RIOR I dO tok teak tte ak ok 
00280C 6812 1D94 B ADSAW* B TO SORT & WRITE IN BASIC 0@182A 1812 * END OF 2ND AUTO CONFIG OVERLAY 
oe eer are RETURN HERE AFTER THIS OVERLAY IS BROUGHT IN AGAIN 1813 3 IC ICR II IG RO RIG IO OR I aI I RO RO I IEC RK ace cok 
002810 8838 1D9A 1D88 MVW AOLRA*,OLYRA RESTORE OVERLAY RETURN ADDRESS 
002816 5SOEY4 F ANY MORE ENTRIES 


J OEM SEE I 
qe END ADD BASIC ORMIA 36308300 ROR GI tk Ri dg dot kate do tok feo ak ok 
* 
FG GIO IORI IOC BO I IORI IO tai a ici ic a Ia I aia toi tok acide ate 


* AUTOMATIC CONFIG FOR OEMI 
PS PT SPS LSS SSS SSS SSS SS SPSS SFE SSS SL SSS SSS STS SES SSS SSS LS SS SSS LS SSS PPS SSL SSS SS 3 
002818 6908 1DFA KOEMC MVW  CTABA,R1 ADDRESS TABLE START 
00281C 7921 0010 KOTEN AWI xX*0016',R1 INCREMENT TO 1ST OR NEXT ENTRY 
002820 C924 1506 CW CTABF,R4 R1 = ADDRESS OF TABLE ENTRY 
002824 6D01 2876 BGT  FLTPT B IF PAST LAST ENTRY 
002828 C260 0001 KOTES MV ABV, 1) pR2 R2 = DEVICE TYPE 
00282E 18F6 : JNE KOTEN’ aay J CONTINUE SEARCH 
002830 8028 1DBO 25FB KOFND MVB © CDTA3, KEDT SET DEVICE TYPE 
002836 890C 1D8E MVW (RI) ADEVA* SET DEVICE ADD & TYPE FOR TERM TO DCP 
00283A 690D 1DBA MVW 1,R4SAV SAVE R1 
00283E 6F03 2620 : BAL READSTAT,R7 GO READ STATUS 
O02b46 eres IDeE MVBZ ERSHOK RT silicate 
O0284A 1888 JNZ  KOTEN’ J COULDN'T READ STATUS ON THAT ENTRY 
* STATUS READ SUCCESSFULLY 
00284C 79A1 0004 AWI i ,R1,R R5= ADDRESS OF KITE ENTRY BYTE 4 
002850 4624 26A4 MVA THcBA2,R6 R6= ADDRESS OF STATUS WORD 
005886 1008 SOrF 6 howea) Scie ak Sanaa 
002858 4424 0008 MVWI 8,R4 COVERS 8 ADDRESSES 
HEUTE co ae es . 
THE ro ee gt eg 0 
002864 4424 0004 MVWI 4, RY COVERS i SDDRESSES 
002868 4D46 : TBTS (R5,6) SET BIT 01 
00286A 4D47 KOIMB TBTS (5,7) DIAG INT MASK ALWAYS ON - SET BIT 
00286C 4EOY TBT {R6 4) TEST PARITY CK/GEN 
00286E 1001 JOFF OBE3 J NOT SELECTED 
002870 4pD44 TBTS (R5,4) PARITY CK/GEN SELECTED - SET BIT 
002872 KOBE3 FOU. * 


Ae a ko RO I I OR I I Rc dak a toi iki tok dado tek kkk take i tk tek ote ok a a aici a 

* END OF MODIFY ONE OENIA ENTRY 

9 aR oe a OR OR A OR CR Oa RR RI ROR IK ARE kk 
B KOTEN CONTINUE SEARCH FOR OTHER OEMIA ENTRIES 

ARC AC A RR Ra Re RR 2 ee RR aR a i i he 2 2 ae ee 2 oc he 3 ee a 2 2 ak a i a fe a fe ke oc ak 

Me a He Ae ae A He ee He ee A 2 He ae He ee ea OR 2 Re ee i ke fe Re 2 a fe a ik a ee a eo et ek a ok i i ok ak ak ok 


* FLOATING POINT 
Ae CH A Hee He i a ae he 2 ae ee fe oe ae i he ae ae 2 fe a ik ee ka i 2 oe a a a a ke a oi i a a se ee i eR ea ke a fe ae fe ok 2k aK ok 


002872 6802 281C 


sah eee ach come a ca ore anh ce cmd see eh eed ont ened cond cach meh ea aon seed ane com ana snob anc anh aaah ooh aed omcd coo cach and anc ansth cond ced ane anche wn coat aah med aed awe mech cach cach aaah mech ob ast dh cab ened nnd sch am wun anh cowl aus som ach cud wnat cat eouh comb cont coal anak cmc ced cath end cond ceelh cncdh med ceed cen oth cnt sent coe ne com met ca ah cond aay aoe coat coh ane geet aon acd ood colt aon aoh ech cond anal arab ond aah anc anh 
we) SI J] SS) Ss J I SI SS SI SIS SI J SS SSS SS SS SS JS SS J SI SI SSIS SI SS SSIS ID ADAAAAAHDAAND HAAN AAAADAAAAHAAANNHAAADAAAARAAANAAAAAAAAAAAAAHAARAAAAAHAACS 
TAUIONIUTIOIVNIS SSS SSS SE WWWWWWWWWWNDNNNDNDID DID wed dk al dd od td ed od ed OO OO OO OCOOCOVUO OVD DOV ODO DOOD OOOODWO ISIS SSID AAAANHANAOAMTNINGIWNUNONIINI SEES LSS 
NUE WD et OOO DUE WN) at OU ONIOUTIF WIN BOW ONIONUIE WN @ OUODNOANE WN SB OU OUNAUIE WN mt OO ADE WN BOW ONO WN OV OWI DNUTIWN 8 WOO ASIN UTE WIN OU OSIQNUT EWN et OW DON HUIWN ot © 


002876 FLTPT EQU * 

002876 4724 2320 MVA MHDB,R7 

OO287A 6001 SVC OUTIN PRINT ‘FLOATING POINT? YES=01,NO! 
00287C 802B 237F 22F3 CB DATO1,FLOAT FLOATING POINT? 

002882 6801 28A2 BNE OSPRE NO, GO TO OSPRE 

002886 0910 FLPNT MVBI xX*10'°,R1 16° BYTE PER ENTRY 
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CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 CROSS-REFERENCE LISTING COPYRIGHT IBM CORP 1976 
DECLARED NAME ATTRIBUTES AND REFERENCES DECLARED NAME ATTRIBUTES AND REFERENCES 
352 ABEGP ABSOLUTE. REX VALUE (00001822) 725. 730 734 740 744 749 753 
399 642 CTICT ADDRESS. HEX LOCATION(00001F56) IN CSECT(O38F3 ) LENGTH(2) 
353 ABEGOQ ABSOLUTE. HEX VALUE (00001826) 715 1 
1408 652 CTIDA ADDRESS. HEX LOCATION(00001F65) IN CSECT(O38F3 ) LENGTH(1) 
351 ABEG2 ADDRESS. HEX LOCATION (00001D92) IN CSECT(O38F3 ) LENGTH(2) 644 
1399 1408 651 CTIDD ADDRESS. HEX LOCATION (00001F64) IN CSECT(038F3 ) LENGTH(1) 
358 ACIPL ADDRESS. HEX LOCATION(00001D9C) IN CSECT(038F3 ) LENGTH(2) 681 
1395 1396 1409 657 CTIDF ADDRESS. HEX LOCATION (00001F6A) IN CSECT(038F3 ) LENGTH(2) 
348 ADATA ADDRESS. HEX LOCATION(00001D8C) IN CSECT(O38F3 ) LENGTH(2) 687 695 
1398 656 CTIID ADDRESS. HEX LOCATION (00001F68) IN CSECT(O38F3  ) LENGTH(2) 
350 ADEV# ADDRESS. HEX LOCATION(00001D90) IN CSECT(O38F3 ) LENGTH(2) 688 694 
41 641 CTIT2 ADDRESS. HEX LOCATION (00001F54) IN CSECT(038F3 ) LENGTH(2) 
349 ADEVA ADDRESS. HEX LOCATION (00001D8E) IN CSECT(O38F3 ) LENGTH(2) 696 708 11.723 
1167 1421 1715 644 CTIO4 ADDRESS. HEX LOCATION(00001F58) IN CSECT(038F3 ) LENGTH(2) 
355 ADSAR ADDRESS. HEX LOCATION(00001D96) IN CSECT(O38F3 ) LENGTH(2) 691 712 
1694 649 CTIOS ADDRESS. HEX LOCATION(00001F62) IN CSECT(O38F3 ) LENGTH(2) 
354 ADSAW ADDRESS. HEX LOCATION(00001D94) IN CSECT(O38F3 ) LENGTH(2) 694 
69 666 CTI 16 ADDRESS. HEX LOCATION(O00001F74) IN CSECT(O38F3 ) LENGTH(26) 
357 AOLRA ADDRESS. HEX LOCATION(00001D9A) IN CSECT(O38F3  ) LENGTH(2) 662 
1693 16 667 CT1I17 ADDRESS. HEX LOCATION(00001F8E) IN CSECT(O38F3 ) LENGTH(6) 
347 ARTNE ADDRESS. HEX LOCATION(00001D8A) IN CSECT(038F3 ) LENGTH(2) 682 
1410 669 CT1I18 ADDRESS. HEX LOCATION (OOQO1F9A) IN CSECT(O038F3 ) LENGTH(2) 
1378 ASVC ADDRESS. HEX LOCATION (00002614) IN CSECT(038F3 ) LENGTH(2) 724 729 733. =~ ~+739 43 48 
6 672 CTI20 ADDRESS. HEX LOCATION(OOO01F9E) IN CSECT(O38F3 ) LENGTH(2) 
1547 BACK2 ADDRESS. LOCATION (00002742) IN CSECT(O38F3  ) LENGTH(2) 724 
1804 4809 1542) 1546 1539. 1545 673 CTI30 ADDRESS. HEX LOCATION(Q0001FA0) IN CSECT(O38F3 ) LENGTH (2) 
1548 BACK6 ADDRESS. HEX LOCATION (0000274C) IN CSECT(O38F3 ) LENGTH(2) 729 
1822" 4831 674 cTI35 ADDRESS. HEX LOCATION (00001FA2) IN CSECT(O38F3 ) LENGTH(2) 
38 BEGIN ADDRESS. HEX LOCATION(00001D70) IN CSECT(038F3 ) LENGTH(4) 733 
8 675 CTI4O ADDRESS. HEX LOCATION(OOOO1FA4) IN CSECT(O38F3 ) LENGTH(2) 
565 BEGIN1 ADDRESS. HEX LOCATION (00001EF2) IN CSECT(O38F3 ) LENGTH(4) 739 
39 676 CTI4S ADDRESS. HEX LOCATION(00001FA6) IN CSECT(O38F3 ) LENGTH (2) 
399 CBPA4 ADDRESS. HEX LOCATION(00001DC8) IN CSECT(O38F3 ) LENGTH(2) 743 
616 677 CTI50 ADDRESS. HEX LOCATION (00001FA8) IN CSECT(O38F3 ) LENGTH(2) 
1628 cc ADDRESS. HEX LOCATION(00002796) IN CSECT(O38F3 ) LENGTH (2) 748 
606 678 cTI55 ADDRESS. HEX LOCATION(O00001FAA) IN CSECT(O38F3 ) LENGTH(2) 
400 CCERR ADDRESS. HEX LOCATION (00001DCA) IN CSECT(O038F3  ) LENGTH(2) 752 
689 431 CTLEL ADDRESS. HEX LOCATION (0000 1DF6) IN CSECT(038F3  ) LENGTH(2) 
1483 CCERREND ADDRESS. HEX LOCATION(000026DE) IN CSECT(038F3  ) LENGTH(2) 1324 1328 1638 1665 1668 
1478 440 CTMNE ADDRESS. HEX LOCATION(00001E08) IN CSECT(038F3  ) LENGTH(1) 
1486 CCERRHTE ADDRESS. HEX LOCATION(000026E0) IN CSECT(O38F3  ) LENGTH(2) 1312 1656 
1473 478 CTM8 ADDRESS. HEX LOCATION (00001E1C) IN CSECT(038F3  ) LENGTH(2) 
377 CDTA3 ADDRESS. HEX LOCATION (00001DB0) IN CSECT(O038F3 ) LENGTH(1) 1315 1659 
619 1690 1 482 CTMB8A ADDRESS. HEX LOCATION(00001E22) IN CSECT(O38F3 ) LENGTH(27) 
378 CDTA4 ADDRESS. HEX LOCATION(00001DB1) IN CSECT(O38F3 ) LENGTH(1) 478 
622 1442 CTRLBLOK ADDRESS. HEX LOCATION(0000269A) IN CSECT(O038F3 ) LENGTH(2) 
379 CDTA8 ADDRESS. HEX LOCATION(00001DB2) IN CSECT(O38F3  ) LENGTH(1) 1506 1514 1525 
1199 426 CTRL6 ADDRESS. HEX LOCATION(00001DF2) IN CSECT(O38F3 ) LENGTH(4) 
380 CDTA9 ADDRESS. HEX LOCATION (00001DB3) IN CSECT(038F3 ) LENGTH(1) 423 
1232 388 CTSA ADDRESS. HEX LOCATION(00001DBC) IN CSECT(O38F3 ) LENGTH(1) 
381 CDTBO ADDRESS. HEX LOCATION(00001DB4) IN CSECT(038F3 ) LENGTH(1) 1283 
1238 389 CTSA2 ADDRESS. HEX LOCATION(00001DBD) IN CSECT(O38F3 ) LENGTH(1) 
382 CDTB4 ADDRESS. HEX LOCATION(00001DB5) IN CSECT(O38F3 ) LENGTH(1) 607 
1262 390 CTSEA ADDRESS. HEX LOCATION(00001DBE) IN CSECT(038F3 ) LENGTH(2) 
375 CDT3D ADDRESS. HEX LOCATION(00001DAE) IN CSECT(O38F3 ) LENGTH(1) 628 1288 
625 391 CTSEF ADDRESS. HEX LOCATION (00001DCO) IN CSECT(038F3 ) LENGTH(1) 
376 CDT50 ADDRESS. HEX LOCATION(00001DAF) IN CSECT(O38F3 ) LENGTH(1) 603 610 611 6 
1117 1112 CUCKO ADDRESS. HEX LOCATION(000023D8) IN CSECT(O38F3 ) LENGTH(1) 
939 CDVRA ADDRESS. HEX LOCATION(0000227C) IN CSECT(O38F3 ) LENGTH(2) 1083 
945 993 1114 CUCKU ADDRESS. HEX LOCATION(000023DC) IN CSECT(O38F3 ) LENGTH(2) 
940 CDVR1 ADDRESS. HEX LOCATION (0000227E) IN CSECT(O38F3 ) LENGTH(2) 1119 1122 
946 992 1120 CUKOO ADDRESS. HEX LOCATION(000023EE) IN CSECT(O38F3  ) LENGTH(2) 
408 CDVT1 ADDRESS. HEX LOCATION(00001DD4) IN CSECT(O38F3 ) LENGTH(4) 1118 
961 980 9 607 CXxs02 ADDRESS. HEX LOCATION(00001FOE) IN CSECT(O38F3  ) LENGTH(4) 
405 CHCNT ADDRESS. HEX cera eMC CSECT(O38F3  ) LENGTH(2) 612 
1162 1206 1210 13. 1230 04 609 CXS03 ADDRESS HEX LOCATION(00001F14) IN CSECT(O38F3 ) LENGTH (4) 
87 CICB ABSOLUTE. HEX VALUE (00000014) 620 623 626 
1426 616 Cxso4 ADDRESS. HEX LOCATION(00001F2C) IN CSECT(O38F3 ) LENGTH (6) 
1635 CLEAR ADDRESS. HEX LOCATION (00002798) IN CSECT(038F3 ) LENGTH(2) 608 
1687 625 cxs05 ADDRESS. HEX LOCATION(00001F44) IN CSECT(O38F3  ) LENGTH(6) 
602 CSRCH ADDRESS. HEX LOCATION(OO001EFA) IN CSECT(038F3  ) LENGTH (2) 617 
1284 6 28 cxso8 ADDRESS. HEX LOCATION(00001F4C) IN CSECT(038F3  ) LENGTH(4) 
1384 CSSBYPAS ADDRESS. HEX LOCATION(0000261A) IN CSECT(O38F3  ) LENGTH(2) 614 
1526 687 CYI05 ADDRESS. HEX LOCATION(00001FB6) IN CSECT(O38F3 ) LENGTH (6) 
1522 CSTAT ADDRESS. HEX LOCATION (00002712) IN CSECT(O38F3 ) LENGTH(4) 720 
1429 701 CYI10 ADDRESS. HEX LOCATION(00001FE2) IN CSECT(O38F3 ) LENGTH(2) 
433 CTABA ADDRESS. HEX LOCATION(00001DFA) IN CSECT(O038F3 ) LENGTH(2) 645 
604 1080 1113 1129 1325 1666 17 708 cY1I20 ADDRESS. HEX LOCATION(00001FEC) IN CSECT(038F3 ) LENGTH(6) 
439 CTABF ADDRESS. HEX LOCATION (OO001E N CSECT(038F3. ) LENGTH(2) 703 
10821115 1131. 1707 716 CY1I22 ADDRESS. HEX LOCATION (00002006) IN CSECT(O38F3 ) LENGTH(2) 
434 CTABU ADDRESS. HEX LOCATION(00001DFC) IN CSECT(038F3 ) LENGTH(2) 719 
1309 1321 1323 1653 1664 723 CYI25 ADDRESS. HEX LOCATION (00002018) IN CSECT(O38F3 ) LENGTH(6) 
361 CTCOO ADDRESS. HEX LOCATION(00001DA0) IN CSECT(O38F3 ) LENGTH(1) 709 
1396 727 cY1I30 ADDRESS. HEX LOCATION(0000202C) IN CSECT(038F3  ) LENGTH(4) 
362 CTCO1 ADDRESS. HEX LOCATION(00001DA1) IN CSECT(O038F3 ) LENGTH(1) 702 
725 1258 1271 1416 733 CY135 ADDRESS. HEX LOCATION(0000203E) IN CSECT(O38F3 ) LENGTH(6) 
363 CTCO2 ADDRESS. HEX LOCATION(00001DA2) IN CSECT(O38F3 ) LENGTH(1) 727 
730 736 CYI40 ADDRESS. HEX LOCATION(0000204C) IN CSECT(038F3 ) LENGTH (2) 
364 CTCO3 ADDRESS. HEX LOCATION (00001DA3) IN CSECT(038F3  ) LENGTH(1) 701 
734 743 CYI45 ADDRESS. HEX LOCATION (00002060) IN CSECT(038F3 ) LENGTH(6) 
365 CTCO4 ADDRESS. HEX LOCATION(00001DA4) IN CSECT(038F3 ) LENGTH(1) 737 
740 746 cYI50 ADDRESS. HEX LOCATION(0000206E) IN CSECT(038F3  ) LENGTH(4) 
366 CTCO5 ADDRESS. HEX LOCATION(00001DA5) IN CSECT(038F3 ) LENGTH(1) 736 
744 752 cYyi55 ADDRESS. HEX LOCATION(00002080) IN CSECT(038F3 ) LENGTH(6) 
367 CTC06 ADDRESS. HEX LOCATION (00001DA6) IN CSECT(O38F3 ) LENGTH(1) 746 
749 756 CYI60 ADDRESS. HEX LOCATION(0000208E) IN CSECT(038F3 ) LENGTH(1) 
368 CTCO7 ADDRESS. HEX LOCATION (00001DA7) IN CSECT(O38F3 ) LENGTH(1) 726 731 ~=2735~—~—S—Oo7 41 45 0 
753 769 CY1I70 ADDRESS. HEX LOCATION(0000208E) IN CSECT(O38F3 ) LENGTH(4) 
369 CTCO8 ADDRESS. HEX LOCATION (00001DA8) IN CSECT(038F3 ) LENGTH(1) 697. 705 
244 124 496 C3828 ADDRESS. HEX LOCATION(QOOO0O1E4C) IN CSECT(038F3  ) LENGTH(22) 
370 CTC 10 ADDRESS. HEX LOCATION(00001DA9) IN CSECT(O038F3 ) LENGTH(1) 492 
1251 125 1069 DATAA ADDRESS. HEX LOCATION (00002386) IN CSECT(O38F3  ) LENGTH(1) 
373 CTC18 ADDRESS. HEX LOCATION (O00001DAC) IN CSECT(O038F3 ) LENGTH(1) 1097 
1265 126 1444 DATAWORD ADDRESS. HEX LOCATION (00002692) IN CSECT(O38F3  ) LENGTH(2) 
1044 CTD20 ADDRESS. HEX LOCATION (0000234C) IN CSECT(O38F3 ) LENGTH(2) 1505. 1508 1513 0 
1688 1057 DATA2 ADDRESS. HEX LOCATION(00002384) IN CSECT(038F3  ) LENGTH(1) 
1050 CTD21 ADDRESS. HEX LOCATION (00002356) IN CSECT(O38F3 ) LENGTH(7) 1103 
1044 1071 DATBA ADDRESS. HEX LOCATION(00002388) IN CSECT(O38F3  ) LENGTH(1) 
1055 CTEOY ADDRESS. LOCATION (0000235F) IN CSECT(O38F3  ) LENGTH(2) 1099 
104s 4637 1667 0 1070 DATB2 ADDRESS. HEX LOCATION (00002387) IN CSECT(O38F3  ) LENGTH(1) 
654 CTICC ADDRESS. HEX LOCATION(00001F67) IN CSECT(O38F3 ) LENGTH(1) 1105 
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LENGTH (1) 
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DECLARED NAME ATTRIBUTES AND REFERENCES ‘DECLARED NAME ATTRIBUTES AND REFERENCES 
140 ONE ABSOLUTE. HEX VALUE (00000001) 139 ZERO ABSOLUTE. HEX yee Ag orcad 
975 1690 i 951 956 972 989 
1778 OSCAN ADDRESS. HEX LOCATION (000028A6) IN CSECT (038F3 ) LENGTH (2) 
1802 OS ERR HOBBES s HEX LOCATION (000028DC) IN CSECT (038F3 ) LENGTH (4) AO eo a doe tok kk ok kook doko oktektokekk LAST PAGE RO ma RO I OR tok iekoiegok dogokote tok dek ok 
492 OSPER snp HEX LOCATION (OO001E46) IN CSECT(O38F3 ) LENGTH (2) 
1776 OSPRE gnepReos: HEX LOCATION (000028A2) IN CSECT (038F3 ) LENGTH (1) 
1785 OSPR1 eo HEX LOCATION (Q00028BA) IN CSECT(038F3 ) LENGTH (2) 
1791 OSPR2 SUDRESS HEX LOCATION (000028C6) IN CSECT(038F3 ) LENGTH (2) 
1797 OSPR3 aaoer nee HEX LOCATION (000028D2) IN CSECT(O38F3 ) LENGTH (2) 
67 our ABSOLUTE. HEX pa oro snes 
£316 1414 1472 1476 1481 41660 1803 
68 OUTIN ABSOL - HEX VALUE (00000001) 
1683 68 1753 ' 
3 038F3 a START (00001D70) LENGTH (2936) ESDID(1) 
79 PREP 7 ae HEX VALUE (0000000C) 
1504 PREPD Pr ada HEX LOCATION (O0002€E6) IN CSECT (038F3 ) LENGTH (4) 
1394 READSTAT on aie LOCATION (00002620) IN CSECT(038F3 ) LENGTH (4) 
75 RESET RESOLUTES HEX VALUE (00000008) 
86 RICB FS HEX VALUE (00000013) 
76 RID ene HEX VALUE (00000009) 
1369 RSBO ERG TESS. HEX LOCATION (00002610) IN CSECT(038F3 ) LENGTH (2) 
1539 RSET ijieee HEX LOCATION (00002736) IN CSECT(038F3 ) LENGTH (4) 
1434 RSFIN choo HEX LOCATION(00002694) IN CSECT(038F3 ) LENGTH (4) 
395 RSNOK Gayo Shien ee IN CSECT (038F3 ) LENGTH (1) 
82 RSTAT Jeng ee HEX VALUE (OO00000F) 
1436 RSTRA ADDRESS. HEX LOCATION(00002698) IN CSECT(038F3 ) LENGTH (2) 
1394 1417 1434 
0 RO REGISTER. HEX Se 
1777 «#1778 1781 1782 1785 1786 1787 1791 1792 
1793. 1797 1798 1799 
0 R1 REGISTER. HEX He ed 
604 605 606 607 609 619 622 625 628 
946 961 962 967 980 981 987 988 992 
1129 1130 1131 1133 1146 1152 1153 1166 1167 
1168 1172 1199 1203 1209 1217 #+%1220 1232 1238 
1247 1244 1245 1248 1251 1252 1259 1262 1265 
1266 1272 1288 1333 1411 1421 1424 $1604 1605 
1606 1635 1640 1653 1654 1655 1656 1663 1664 
1665 1666 1669 1705 1706 1707 1709 1715 1716 
es 1724 1756 1758 1759 1760 1761 41762 1778 
387 RISAV ADDRESS. HEX LOCATION (OOOO1DBA) IN CSECT (038F3 ) LENGTH (2) 
1168 1172 1716 1720 
0 R2 REGISTER. HEX ae hue ta 
605 611 948 950 951 955 956 960 963 
969 971 972 975 979 982 1084 1085 1087 
1089 1091 1093 1133 1134 1136 1138 41140 1156 
1159 1161 1321 1322 1323 1324 1325 1329 1422 
1424 1636 1639 1667 1669 1709 1710 41763 1764 
1765 1787 1788 1793 1794 1799 1800 
0 R3 REGISTER. HEX See ago 
1080 1081 1082 1084 1097 1099 1101 1103 1105 
11130011714 #1115 1117 #1120 1121 #1146 «©1147 1148 
1149 1157 1159 1327 1329 1464 1465 1466 1637 
1639 1757 1758 1763 1765 
0 R4 REGISTER. HEX See eee 
1180 1186 1189 1191 1468 1728 1733 
0 R5 REGISTER. HEX eee ee eae 
967 975 979 961 986 988 989 990 1176 
1181 1187 1193 1196 1724 1729 1734 1736 1740 
0 R6 REGISTER. HEX yorleea eo eeoe! 
6 86 769 954 960 962 963 982 990 1177 
1178 1194 1608 1652 1670 1725 1726 1731 £41738 
0 R7 REGISTER. HEX ee eee oa 
38 565 629 686 691 712 945 954 955 
956 959 978 985 1158 1164 1165 1170 1173 
1190 119% 1192 1204 1213 1214 #%44225 1228 1229 
1230 1284 1285 1299 1302 1303 1304 1309 1310 
1311 1312 1315 1328 1394 1413 1415 1423 1425 
27) #1428 1429 1430 1431 1432 1469 1471 1473 
1475 1480 1504 1506 1512 1513 1514 1522 1524 
1525 1539 1541 1607 1610 1635 1638 1652 1659 
4085 1682 1684 1687 1688 1691 1718 1721 1752 
1781 SCAN HOt Gok LOCATION (OQOOO28AE) IN CSECT(038F3 ) LENGTH (2) 
145 SIX Seo HEX VALUE (00000006) 
1364 STATUS {open HEX LOCATION (OOO00260E) IN CSECT (O038F3 ) LENGTH (2) 
149 TEN ABSOLUTE. HEX VALUE (0000000A) 
969 971 1423 
74 TERA steo HEX VALUE (00000007) 
1385 TERMOK ‘Keo HEX LOCATION (0000261C) IN CSECT(O038F3 ) LENGTH (2) 
1079 TERN Pepe hess HEX LOCATION (0000238A) IN CSECT(O38F3 ) LENGTH (1) 
1419 TOK sna eeee HEX LOCATION (0000266A) IN CSECT(038F3 ) LENGTH (1) 
141 TWO ABSOLUTE. HEX VALUE (00000002) 
955 979 


